＃>>561 すみません。もうすこし下まで再掲します。
open(out,">$outf") or die "Failed to open $outf \n";
print "Now Printing $outf \n";
# print out "(h)","Rain\n";
$hoge=$hash_rain{$tele[$i]};

for($j=0;$j<148;$j++){
# print "$j,$$hoge[$j]\n";
$s=$$hoge[$j];
print outf $j,$s;
if($s>0){print "$j,s=$s\n"};
}
close outf;
＃としております。