$|=1; #### @puts = @{$h0{'puts'}}; #### my %h1 = %{$hr1};