while (defined(my $line = (@values) ? shift(@values) : <$filehandle>)) {
...