sub util_remove_duplicates{
  my $ref=shift;
  my %hash;
  @$ref=grep{!$hash{$_}++} @$ref;
}
my @array=qw(a b c a j k l m o p q k);
print "@array\n";
util_remove_duplicates(\@array);
print "@array\n";