12 lines
261 B
Perl
12 lines
261 B
Perl
|
%seasons=("A" => "Spring",
|
||
|
|
"B" => "Summer",
|
||
|
|
"C" => "Fall",
|
||
|
|
"D" => "Winter",
|
||
|
|
);
|
||
|
|
|
||
|
|
%days=("Mon" => "Monday",
|
||
|
|
"Tue" => "Tuesday",
|
||
|
|
"Wed" => undef,
|
||
|
|
);
|
||
|
|
$days{"Wed"}="Wednesday";
|
||
|
|
$days{5}="Friday";
|