my @speknum;

open(my $fh,"<",$pqc) or die $!;
while(my $line = <$fh>){
   push(@speknum,(split(/\s+/,$line))[1]);
}
close $fh;