Update: I initally put the following code, but I suspect I'm wrong. I've confused myself again...

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

Update. Working code (excuse the altered variable names) is:

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

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