hoge や fuga の呼び出される回数にもよるけど…

use strict;
sub hoge {
my($al, $br, $ch, $de) = qw(1 4 7 10);
my $fuga = sub { $_++ for @_ };
$fuga->($al, $br, $ch, $de);
$fuga->($al, $br, $ch, $de);
return "al = $al br = $br ch = $ch de = $de\n";
}
print hoge();