13 lines
469 B
Perl
13 lines
469 B
Perl
%romanNumerals = ( one => 'I',
|
|
two => 'II',
|
|
three => 'III',
|
|
four => 'IV',
|
|
five => 'V',
|
|
six => 'VI',
|
|
seven => 'VII',
|
|
eight => 'VIII',
|
|
nine => 'IX',
|
|
ten => 'X' );
|
|
|
|
print "The Roman numerals for three, five and eight are: ",
|
|
"@romanNumerals{ 'three', 'five', 'eight' }\n"; |