<: %websites = ( Google => 'http://www.google.com/', HLE => 'http://www.hackinglinuxexposed.com/', OSWB => 'http://www.opensourcewebbook.com/', Slashdot => 'http://www.slashdot.org/' ); foreach $site (sort keys %websites) { print "$site
\n"; } :>