Select Code to Download

open (BINFILE, $binaryfile) or die "Cannot open $binaryfile\n";
    my @lines;
    while (<BINFILE>) {
...
    }
print Dumper (\%bin_file_data);    
    close BINFILE;

$VAR1 = {
          'sampname1' => 1032,
          'sampname2' => 1032,
        };