sub common { my ($a,$b)=@_; my ($long,$short); if (length ($a) <= length ($b)){ ($long,$short) = ($b,$a); } else { ($long,$short) = ($a,$b); } my $i=0; my $common=""; while ($i