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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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