perlのforeachとmap・・・・・・

mapの方が処理が早いらしいね・・・・foreachって・・・・