use warnings;
use strict;
no strict qw/vars/;

*STR = \'Some string';
my ($str1, $str2) = (\'Some string', $STR);

sub foo(\$) { return }

eval { foo($STR) };
warn "$@";
eval { foo($str1) };
warn "$@";
eval { foo($str2) };
warn "$@";