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