foreach (@unseen) {


printf ("%-10s\t\t%-10s\n",$seen[$i],$unseen[$i]);
$i--;
}