my $bar = 3;
my $foo = 'Bar is $bar';
print $foo, "\n";