foreach my $thisone (@$data) {