use strict;
use warnings;

sub yaya {
 return " ha \n";
}

my $foo = "bar";
print ($foo, yaya);