Select Code to Download

use strict;
use warnings;
...

open my $inputFH, q{<}, $inputFile
   or die qq{open: < $inputFile: $!\n};

$ cat spw718152.dat
SNPSTER2_50_3_1_119_588        10
...
open: < spw718152.dat
: No such file or directory
$

use strict;
use warnings;
...
   or die qq{close: < $inputFile: $!\n};

print Data::Dumper->Dumpxs( [ \ %dataItems ], [ q{*dataItems} ] );

$ ./spw718152
spw718152.dat
...
               'SNPSTER2_50_3_1_119_260' => '27'
             );
$