while(<FH>) {
    push @required, $_ if /^abcde.*partname$/;
}

##</code><code>##

while(<FH>) {
    print C if /^abcde.*partname$/;
}