Select Code to Download

#!/usr/bin/perl -w

...
keys %count;
my @uniq = sort keys %count;
print "\nunique values are @uniq\n"

3 occured 3 times
...

unique values are 1 2 3 4 5 6 7 9