my $head = $pop->top($popnum);
print @{$head};