Question

I have two arrays @input0 and @input1. I would like a for loop that goes through every value in @input1 and if the value exists in @input0, the value is saved in a new array @input.

All arrays contain numbers only. There are a maximum of 10 numbers per array element (see below):

@input0 = {10061 10552 10553 10554 10555 10556 10557 10558 10559 10560, 10561 10562 10563 10564 10565 10566 10567 10573 10574 10575, ...}

@input1 = {20004 20182 ...}

Answer 1

Short, sweet and slow:

my @input = grep $_ ~~ @input0, @input1;

Verbose and faster with for loop:

my %input0 = map {$_, 1} @input0;
my @input;

for (@input1) {
    push @input, $_ if $input0{$_};
}