Select Code to Download

use strict;
use warnings;

use Modern::Perl;

use Modern::Perl;
say 'listes associatives';
my %url = (
...
foreach my $val (values %url) {
    print "$val\t";
}

say 'liste des abbreviations et URL';
while (my ($key, $ val) = each  %url) {
    print "$key: $val\t";
}