perlなんだけどなんでbreakがlastなの？それと
何でcontinueがnextなの？(;´Д`)