$file=$ARGV[0];

@all_IDS=();
open IN, $file;
while(<IN>)
{
  chomp $_;   
  push @all_IDs, $_;

}
close IN;

##</code><code>##

use Text::Levenshtein qw(distance);
$distance = distance ($id1, $id2);