Select Code to Download

sub define_codes_method2 {
    my $language;
...
        }
    }
}

       my ( $code, $descr ) = split /,/;
       $codes_hash{$code}{$language} = eval $descr;