use strict;
use warnings;

my @datei = ('    ');

foreach(@datei){
    # leerzeilen interessieren nicht...
    next if /^$/;
    my $check="false"; #rücksetzen der checkVariabel
    chomp; my @work = split /\s+/; #jede Zeile der Datei ins array "work" laden, je Trennzeichen
    $work[0]=~ s/^\s+//g; #leerzeichen zu beginn einer Zeile löschen
    next if substr ($work[0],0,1) eq '#'; #nächste Zeile der datei wenn das erste Zeichen "#" ist
    next if substr ($work[0],0,1) eq ';';
    next if substr ($work[0],0,1) eq ''; 
}