open (DAT,"<$pqc");

my $spek = <DAT>;
close (DAT);

for my $line(split(/\r?\n/,$spek)){
    chomp $line;
    while(my $wert = (split(/\s+/,$line))[-1]){

    push(@speknum,$wert);
    }
}