use strict;
use warnings;

##</code><code>##

use Modern::Perl;

##</code><code>##

use Modern::Perl;
say 'listes associatives';
my %url = (
    fd => "www.forumdz.com",
    ok => "www.ouedkniss.com",
    se => "www.sec4ever.com"
);

#-----------------------------
say 'liste des URL';
foreach my $val (values %url) {
    print "$val\t";
}

##</code><code>##

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