#23456789_123456789_123456789_123456789_1234
map{$y=$_;map{$s[$_].=$y}$c..$s+$c++}/(.)/g;