Select Code to Download

use warnings;
use strict;
...
}

Dump (\%lookup);

__DATA__
Main
...
  Action =
  Text = France
End

$HASH1 = {
           CA     => 'Canada',
...
                     ],
           US     => 'United States'
         };