That would be better written:

for my $index (0 .. 9) {
    print $data[1][$index];
}
[download]

or if you want to print all the elements in the array reference you could:

for my $index (0 .. $#{$data[1]}) {
    print $data[1][$index];
}
[download]

or better still:

for my $element (@{$data[1]}) {
    print $element;
}
[download]

and more succinctly as:

print $_ for @{$data[1]};
[download]

and if you would like a space between elements you can:

print "@{$data[1]}";
[download]