Select Code to Download

my @list = (@values, <$filehandle>);
while( my $line = shift @list) {
...
   my $another_line = shift @list;
}

my $file_line = splice @list, scalar @values + $line_num,1;