%msgs= $pop->list();
for $msg (keys %msgs) {
     print "the message $msg is $msgs{$msg} bytes long.\n";
     $msgnum++;
}
print "\nthere is $msgnum messages\n"