foreach $log ( sort keys %logfiles ) {
    foreach ( @surl ) {
        $urlp = $_ . 'hc';
        if ( $log =~ /[.]/ && $log !~ /^[.]/ ) {
            @slog = split( '.', $log );
            #$slog[0] =~ s/HELog_//g;
            print $slog[0];
            #if ( $slog[0] eq $urlp ) {
                #push @logfiles, $log;
            #}
        }
    }
}

##</code><code>##

Use of uninitialized value in print at ./he8-errors line 252.
Use of uninitialized value in print at ./he8-errors line 252.
Use of uninitialized value in print at ./he8-errors line 252.
Use of uninitialized value in print at ./he8-errors line 252.
Use of uninitialized value in print at ./he8-errors line 252.
Use of uninitialized value in print at ./he8-errors line 252.