package Country; use strict; use base 'Exporter'; our @EXPORT = qw(%country); our %country = ( af => 'afghanistan', ao => 'angola', ar => 'argentina', at => 'austria', au => 'australia', bd => 'bangladesh', be => 'belgium', bg => 'bulgaria', ); 1;