my %hash = map { $_->[0] => { key1 => $_->[1], key2 => alter($_->[1]) } } map { [ $_ => 'longstring'.$_.'more' ] } @list;