while(defined($rivi = <ROWS>)) {
     chomp $rivi;
     ....
}