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