Select Code to Download

(@junk, $ads) = (split(/\s+/, $rec));
# the same here
...

# only this way it works
($first,$second,@remaining) = @all