Select Code to Download

use Data::Dumper;
print Dumper(%table);

$VAR1 = ' Germany';
$VAR2 = [
...
          'Washington',
          'New York'
        ];