Select Code to Download

open my $url_fh, '<', 'urls.txt'
    or die "Can't read 'urls.txt': $!";
...
                   my $url = $_; 
                   map { $url . $_ } @codes
                 } @urls;