Punnig operator for scalars.

pun.pl

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/say/;
use PadWalker qw/var_name/;

my $foo = 42;
my $bar = 'blah blah blah';
my $baz = undef;
use Data::Dumper;
say Dumper +{ pun $foo, $bar, $baz };

sub pun {
  map { (var_name(1, \$_) =~ s/^\$//r) => $_ } @_;
}