use Modern::Perl;

my $var1 = 'foo';
my $var2 = \$var1;

say $var2;      # prints SCALAR(0x2590b8)
say "$var2";    # prints SCALAR(0x2590b8)

say $var1   ~~ [qw/foo bar/];    # is true: prints 1
say $var2   ~~ [qw/foo bar/];    # is false: prints nothing
say "$var2" ~~ [qw/foo bar/];    # is false: prints nothing