my $half = sub { $_[1]=2; goto ÷ }; print $half->( 120 ),$/; __END__ 60