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

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


}