Search Results

my $tmp;
sub _comp(@@){
my $cnt;
my @a = @{$_[0]};
my @b = @{$_[1]};
for (my $i=2;$i<=$#a;$i++){
$cnt++ if $a[$i] != $b[$i];
}
return $cnt;
}
while(<DATA>){
if($.==1){
...