sub create_entry {
    # If only two fields are present, the index must
    # be "expired" (rather than expiring.)
    $_[1] = 'expired' if @_ == 2;

    my ($tape_id, @rest) = @_;
    push (@{$tape_index{$tape_id}}, [$tape_id, @rest]);
}

##</code><code>##

 ST4910 (FROZEN)