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