Select Code to Download

my @file_one = (
    '1   100   5730_1 0.123',
...

    print "$f[0] $f[1] $file2{$f[0]}{$f[1]} $f[3]\n";
}

1 100 1 0.123
1 200 1 4.567
21 400 60 2.345