while (defined($line=shift @values)) {
   process($line);
}
while (defined($line=<$filehandle>)) {
   process($line);
}