#!C:/Perl/bin/perl.exe -w
#!/usr/bin/perl
print "listes associatives \n";
%url=("fd"="www.forumdz.com",
      "ok"="www.ouedkniss.com",
      "se"="www.sec4ever.com");
#-----------------------------
print "liste des URL \n";
foreach $val (%url){
              print $val."\t";
              }