...
my $return_onTop = sub { @return = @_; die \$magic; };
...