123456789 use Perlmazing;sub main (\%@) { my $h = shift; while (@_ and my ($k, $v) = (shift @_, shift @_)) { $h->{$k} = $v; } %$h;}
use
Perlmazing;
sub
main (\%@) {
my
$h
=
shift
;
while
(
@_
and
$k
,
$v
) = (
)) {
->{
} =
}
%$h