deco.pl

$|++;
use warnings;
use Text::LevenshteinXS qw(distance);

for (qx!cat nappis.txt!) {
  $merkki{$2} = $1 if (/^(.+) ([01]+)/);
}

while (<>) {
  chomp();
  $pienin = "";
  for $vertai (keys %merkki) {
    $pienin = $vertai if ($pienin eq "" or distance($_, $vertai) <= distance($_, $pienin));
  }
  print ($merkki{$pienin} // "");
}