#!/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%']);

    
   }