my %new_hash = map { splice( @{ $hash{ $_ } }, 0, 1, $_ ), [ @{ $hash{ $_ } } ] } keys %hash;