print ", $data[$a]->[$b]" ;

##</code><code>##

print ", $data[$a][$b]" ;