sub say { print @_, "\n" };

my $foo = "Hello";
say "$foo World";
say '$foo World';