hi, I want to find the max fuzzy matching between a sentence in a file and a sentence in another file. I have already the following code, but something goes wrong and it does not work. In addition, How can I get the max fuzzy matching?

#!/usr/bin/perl
use String::Approx qw(amatch);
use Text::Fuzzy;

my $f1='bmc_pe.it.txt';
open (FILE1, "<:encoding(utf8)", $f1) or die "can't open file '$f1' $!
+";
my @mt = <FILE1>;

my $f2='bmc_mt.it.txt';
open (FILE2, "<:encoding(utf8)", $f2) or die "can't open file '$f2' $!
+";
my @tm = <FILE2>;

my $max=0;
my $lm;
my $i, $j;

for  $i (0 .. $#mt) {
   for  $k (0 .. $#tm) {

 
print if amatch($mt[$i], $mt[$k] ['i', '25%']);

    
   }
[download]