最後の行だけに反応。

my $hoge = my $foo = sub () { print 'hage' . "¥n" ; } ;
$hoge->() ;
$foo->() ;

local *hoe = local *moe = sub () { print 'moeeeee' . "¥n" ; } ;
&hoe ;
&moe ;