Select Code to Download

#!/usr/bin/env perl

...

print Dumper \%hash;
print Dumper \%hash2;

$ cat DATA_F.dat
1 one
2 two
3 three

$VAR1 = {
          '2' => 'two',
...
          '1' => 'one',
          '2' => 'two'
        };

$ cat DATA_F2.dat
1 a
...
24 x
25 y
26 z

$VAR1 = {
          '13' => 'm',
...
          '22' => 'v',
          '1' => 'a'
        };