foreach (@unseen) {


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

##</code><code>##

print "Email folder: $EMAIL_FLDR\n";
print "Spam:\t\tHam:\n";

foreach (@unseen) {
print "$seen[$i]\t\t$unseen[$i]\n";
$i--;


}




##</code><code>##

Spam:           Ham:
./50257_S               ./36967_X
./27649_S               ./mailtest.pl~
./32894_S               ./mailtest.pl
./71114_S               ./rules
./54615_S               ./22096_X
./41237_S               ./56628_X
./1902_S                ./2780_X
./50257_S               ./87952_X
                ./90737_X
                ./51698_X