foreach my $d (@data) {
    if ($d->[5] == 1) {
...
    }
}