use strict;
use warnings;
$| = 1;
my $x = 11;
my $q = f("foo\nbar");
$x++;
my @q = g('baz', "foo\nbar", 'moo');
$x++;
my %q = h(bar => "foo\nbar", moo => 42);
$x++;
sub f {
my ($in) = @_;
my $x = 1;
return $in;
}
sub g {
my (@in) = @_;
my $x = 1;
return @in;
}
sub h {
my (%in) = @_;
my $x = 1;
return %in;
}