print $_ for (1..100) ;
map {print $_ } (1..100) ;

1から100まで出力する方法、他にありますか？