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";
}