my %freq = ();
my @unique = grep { !$freq{$_}++ } @arr;

You may be interested in List::MoreUtils::uniq:
    use List::MoreUtils qw(uniq);
    my @unique = uniq @arr;