如何从Perl中删除数组中的重复项？

#!/usr/bin/perl

use strict;
use warnings;

my @array = (1, 2, 3, 2, 4, 5, 3, 6);
my %hash;
my @unique_array;

foreach my $item (@array) {
    if (!exists $hash{$item}) {
        push @unique_array, $item;
        $hash{$item} = 1;
    }
}

print "Original array: @array\n";
print "Unique array: @unique_array\n";