open FH, "<fh.txt" or die "$!\n";

while (<FH>) {

   push(@y, $_), next if $flag;

   /^RE$/ and push(@y, $_), $flag++;

}

close FH;