@strings = map { 
$runlengths[$_][0] . "x" . $runlengths[$_][1] } ( 1 .. $#runlengths);