sub t { $a = shift; $x = 10 * ( $a % $width ); $y = 10 * ( 2 + int $a / $width ) }