sub qpop { my ($self) = @_; my $ref = pop @{$self}; return $ref->{event}; }