my $min_pos = ( 
        sort { $a->[0] <=> $b->[0] } map { [$_ => ++$pos] } @array1
    )[0];
    # do useful stuff
    print ... $array2[$min_pos->[1]]