Select Code to Download

#!/usr/bin/perl -w

...
print "\nunsorted: @bug_array";
print "\n  unique: @unique";
print "\n  sorted: @sorted\n";

 99
1722,3
...
unsorted: 99 1722 3 99 456 17 24 42 58 50 50
  unique: 50 3 58 17 456 42 99 24 1722
  sorted: 3 17 24 42 50 58 99 456 1722