$maximum = &max(3, 5, 10, 4, 6); sub max { my($max_so_far) = shift @_; foreach (@_) { if ($_ > $max_so_far) { $max_so_far = $_; } } $max_so_far; } 引数リスト @_ 引数リストの各要素 $_ 関数呼び出し & 関数宣言 sub

文字列のリストを作る例です。 @wordList = qw( akioTakenaka botamochiFrom commaSemi ); print "@wordList"; print "\n"; print @wordList[1]; ↓出力 akioTakenaka botamochiFrom commaSemi botamochiFrom