Select Code to Download

sub qpush
{
     my ($self, $time, $eventref) = @_;
     push @{$self}, {time=>$time, event=>$eventref};
}

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

   # to call it:
$queue->qinsert($time, $eventref);
...
                }
        }
}