sub push_1 { my %hash = @_; for (keys %hash) { $hash{$_} = [ @{ $hash{$_} }, 1 ]; } }