foreach $data ( @$data) {

##</code><code>##

foreach my $thisone (@$data) {