my $p_id = (split /\s+/, $lines[1])[0];