use Data::Dumper;
print STDERR Data::Dumper->Dump(
  [ $pop, \@return, $count ],
  [ "pop", "return", "count" ] 
);
[download]

Use liberally.