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

Update: the defined is needed.