sub foo {
    my( $bar, $baz ) = @_;
    print "\$bar contains <<$bar>>\n";
    print "\$baz contains <<$baz>>\n";
}

foo( "Hello,", "world!" );