Select Code to Download

#!/usr/bin/perl -w
use strict;
...
} ## end foreach my $filename (qw/one.txt two.txt three.txt/)

print dump( \%data );

one.txt
chromosome1 50000 12 20
...
.
.
(there would be 5million lines of the above)