x-haui

hint on 2-dimensional arrays in Perl:

$width = @{$array[0]};
$height = @array;