Select Code to Download

my %seen = ();
my $tmp
...
  print $_ if $seen{$_} == 2;
}

my %seen = ();
...

print $_ foreach (sort{$seen{$a}<=>$seen{$b}}keys %seen);