my %code = ( au => 'AU', fr => 'FR' );
foreach my $cc (@country_code) {
   croak("Country code $cc is not available") unless exists $code{$cc};
   eval( "require MyModule::$code{$cc}" );
   croak("Unable to locate MyModule::$code{$cc}") if $@;
}