for (my $i = 0; $i < @a; $i++) {
    # Do stuff with @a and @b
}