Select Code to Download

my %count = ();
my @tableused = ();
...
foreach $elem (keys %count) {
    push @tableused, $elem if $count{$elem} > 1;
}