my @list = map @$_, @$lol;