Perlがわからん(;´Д`)難しすぎる
ほぼ同じコードなのに片方は実行可能でもう片方はエラーがでる