my $foo = $bar;
print "hi $foo\n";
print 'hi ', $foo, "\n";