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;
}