Select Code to Download

sub util_remove_duplicates{
  my $ref=shift;
...
print "@array\n";
util_remove_duplicates(\@array);
print "@array\n";

a b c a j k l m o p q k
a b c j k l m o p q