sub parse_file {
    my ( $self, $file ) = @_;
    tie my @array, 'Tie::File', $file, mode => O_RDONLY;
   ...
    $token       = $self->{doc}->next;
    $self->SUPER::parse_file($file);
    ...