Select Code to Download

use strict;
use warnings;
...
  print $site_length_catch{$gene}{$_} // 0, "\t" for 1..$max;
  print "\n";
}