$hash{$mm} = $dd;foreach $key ( keys %hash ) {
$cal = new HTML::CalendarMonthSimple('month'=>$mm,'year'=>$yyyy);
}