Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;
use WWW::Mechanize;
...
$hash{'Country'} = '(' . ( join ', ', @country ) . ')';

say "$_ => $hash{$_}" for sort keys %hash
  2. or download this
    Company => ('Island Trading', 'Galería del gastrónomo', 'Laughing Bacc
+hus Wine Cellars', 'Paris spécialités', 'Simons bistro', 'Wolski Zaja
+zd')
Country => ('UK', 'Spain', 'Canada', 'France', 'Denmark', 'Poland')