Select Code to Download

#!/usr/bin/perl/

...
else{
     print "No match!\n";
     }

@aa=%aa;
@bb=%bb;

$aa = join("",sort @aa);
$bb = join("", sort @bb);

@aa=sort(%aa);
@bb=sort(%bb);

$aa = join(" ",@aa);
$bb = join(" ",@bb);