use strict;
{
    local $\="\n";
    print for %INC;
}
sub foy {
  my %a = %{shift(@_)};
  my @b = @{shift(@_)};
  return %a . ' ' . @b;
}
die foy ( { 1 .. 10 }, [ 1..10 ] );
__END__
strict.pm
C:/Perl/lib/strict.pm
4/8 10 at - line 11.