Select Code to Download

use warnings;
use strict;
...
close $fh;
my @data = sort keys %seen;
print $_,"\n" for @data;