Select Code to Download

File 1: 

...
b    10    15
b    12    15
...

file 2:

...
13         1
14         1
...

#!/usr/bin/perl

...

print Dumper(\%hash_pos);

a    12    15
a     12    17
...
a    14    19
b    10    15
b    12    15

#a
1    0
...
20    0
21    0

./test.pl -i file.2 -t file.1

$VAR1 = {
          'a ' => {
...
                 }
        };

without the mistake in my input file 1

...
                 }
        };

#!/usr/bin/perl

...
print Dumper(\%hash1);