no strict 'refs';
my $var1 = 'foo';
&$var1('Roghue, symbolic refs are bad practice');
sub foo { print "Hello $_[0]\n" }