use Modern::Perl;
use PadWalker 'var_name';

sub show1
{
    my $name = var_name(1, \$_[0]);
    say "show1 called with $name";
}