for $i (0 .. $#data) { print "
$i => "; for $j (0 .. $#{$data[$i]}) { print ", $data[$i][$j]"; } }