my ($toc) = grep { $_->name =~ m{/toc$} } $tar->get_files;

##</code><code>##

    my $toc = undef;
    for my $file ( $tar->get_files ) {
        if ( $file->name =~ /toc$/ ) {
            $toc = $file;
            last;
        }
    }
    ( defined $toc ) or do { warn "no toc file in $wdir/$tarball\n"; next };