Select Code to Download

# create the parser, etc.

...
for (keys %hash) {
   print qq|<a href="$_">$hash{$_}</a>\n|;
}

use URI;

...
   };
}
print Dumper \@list;