Select Code to Download

open my $fh, "<", $file or die $!;
while (<$fh>){
  my ($key,$val) = split /\t/;
  substr($bin,$key*4,4,pack("N",$val));
}

substr($bin,$_*4,4,pack ("N",0)) for (0..$last_val);