$msg = $pop->top($popnum);
print $msg;

##</code><code>##

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

##</code><code>##

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