my $href = shift; for my $key ( keys %{ $href } ) { push @{$href->{$key}}, 1; }