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