syntax error in perl modul

[Chris]

Hey Danke,

bin schon weiter mit dem Script danke eurer Hilfe!

(sind total viele Fehler drin)

Noch eine hoffentlich kleiner Fehler

BEGIN not safe after errors--compilation aborted at cntfunc.pm line 802.

802 no strict 'refs';

sub GetCompressedStat {
  if ( @main::COMP ) { # normale Statistik
    no strict 'refs';
    foreach my $line ( @main::COMP ) {
      chomp($line);
      my ( $tag, $val ) = split(/>/, $line, 2);
      foreach ( split(/|/, $val) ) {
        my ( $t, $v ) = split(/=/, $_);
        if ( $t ne '' ) {
          if ( $tag !~ /^years$/i ) {
            my ( $a, $y, undef) = split(/[>_]/, $tag, 3);
      my $item = $main::{ lc($a) };
            ${ $item }{$y}{$t} = $v;
          } else {
            $main::ycount{$t} = $v;
          }
        }
      }
    }
  }
} # End sub GetCompressedStat

Habe am Scriptanfang ein "use strict" drin
ist das vielleicht das Problem

Oh man ich seh schon ich sollte mich mehr mit perl beschaeftigen

Danke Leute