foreach(@keys){ 　# @keysをforeachして

if($_->[$n] !~ /^\d*$/){ # $_の$n番目の値が数字ではなかったら、

$num_flug =1; 　# $num_flugに1を入れまつ

last;　# foreachのループ抜けまつ

} 　# 　ifを閉じまつ
}　 # 　foreachを閉じまつ

これでいいでつか？