my @lines = <STDIN>;

foreach my $pattern (@array1) {
    my $tf = Text::Fuzzy->new ($pattern);  

    my $fuzzy = $tf->nearest( \@lines ); # find fuzzy scanning the array of lines

    print "$pattern\t$fuzzy\n";
}