use List::MoreUtils qw(uniq);

 my @unique = uniq( 1, 2, 3, 4, 4, 5, 6, 5, 7 ); # 1,2,3,4,5,6,7
 my $unique = uniq( 1, 2, 3, 4, 4, 5, 6, 5, 7 ); # 7