Select Code to Download

123  56
123  56
...
123  56
678  93
678  93

234  45    1
123  56    3
678  93    2

my $file = 'filehere.txt';
open(DATA, "$file") || die "Can not open: $!\n";
...
print "$item\t$hash{$item}\n";

close(DATA);