Select Code to Download

my $data_file = "ActiveItems2.txt";
open(DAT, $data_file) || die("Could not open file: $!");
...
print for sort keys %seen;

close(DAT);

@seen{<DAT>} = (); # Hash slice assignement
print for sort keys %seen;