for my $i (0 .. $#array1) {
	my $tf = Text::Fuzzy->new ($array1[$i]);  

	my $fuzzy = $tf->scan_file ($f1); # find fuzzy scanning the file

	print "$array1[$i]\t$fuzzy\n";
}