Select Code to Download

#!/usr/bin/perl 
use strict;
...
}

print join(", ",@uniq) , "\n";    # see if it worked

1
1
...
6
7
7

1, 2, 3, 5, 6, 7