while (<R>){
   if ($_ eq something...){
      push (@Y, $_);
   }
}