Select Code to Download

sub generator {
    my %rtoa = ( M=>1000, D=>500, C=>100, L=>50, X=>10, V=>5, I=>1 );
...
}

*roman_to_dec = generator();