delete $month_hash{3};
my @months = @month_hash{@order};
print $_,$/ for @months;