my (@ioc, @kb, @sdc); open(FH,"<$file") || die $!; while(){ chomp; push @ioc, $_ if($_ =~ /^psaf/); push @kb, $_ if($_ =~ /^psrs/); push @sdc, $_ if(_ =~ /^pssd/); #<- Fehler hier _ anstatt $_ close(FH); #<- Fehler gefunden { fehlt print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; foreach(@ioc){ print "\n"; print "\n"; print "\n"; } foreach(@ikb){#<- Fehler gefunden @ikb anstatt @kb print "\n"; print "\n"; print "\n"; } foreach(@sdc){ print "\n"; print "\n"; print "\n"; } print "
$_
$_
$_
\n"; print "\n"; print "\n";