>>124
ナニコレ。

>>127
板違い。Webprog板へどうぞ。

>>128
use 5.14.0;

sub {
my ($c, $d, $e, $f, $g, $h, $i) = @_;
say $c, $d, $e, $f, $g, $h, $i;
}->(1, 2, 3, 4, 5, 6, 7);