while (<$READFILE>) {
     # do something to $_
     print $WRITEFILE $_ ;
}