Select Code to Download

my $file = 'data.txt';
open READ, $file || die "Cannot open $file: $!\n";
...
foreach (keys %hash){
    print $_, "\t", %hash->{$_}[1], "\t", %hash->{$_}[2], "\n";
}