while(@array1 or @array2) {
    while(@array2) {
        my $item = shift @array2;
        # Do various things
    }
    if(@array1) {
        my $item = shift @array1;
        # Do various things
    }
}