Select Code to Download

use strict;

...
my @results = map{if($dupes{$_} > 1) { $_; }}keys %dupes;
print @results;