for (my $i = 0; $i < @{$data}; $i++) {