@{ my $sub; my @refs = @h{@a}; do {$sub = sub { @refs ? $sub->(@_,@{pop @refs}{@b}) : \@_ }}->() }