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; $n{$mag}{3}=$n{$mag}{10}=$n{$mag}{30}=$n{$mag}{1000}=0; } for ($mag=5.5; $mag<9.0; $mag=$mag+0.1){ print"$mag $n{$mag}{30}\n"; }