Select Code to Download

for ($mag=5.0;$mag<9.0;$mag=$mag+0.1){
 $n{$mag}{0}=$n{$mag}{0.1}=$n{$mag}{0.3}=$n{$mag}{1}=0;
...
for ($mag=5.5; $mag<9.0; $mag=$mag+0.1){
 print"$mag $n{$mag}{30}\n";
}

5.5 0
5.6 0
...
7.29999999999999 0
7.39999999999999 0
<truncated>

use strict;

...
      $mag = sprintf "%.1f", $mag + 0.1 ) {
  printf "%.1f %f\n", $mag, $n[ mag_to_index( $mag ) ]{ 30 };
}