Select Code to Download

$key = @...[...];    <--- Wrong
^      ^                  It may work because Perl is "smart",
...
^      ^
|      |
+------+

# Wrong:
print "hope 1 @{$months->[$i]}\n";
...
print "hope 1 $months->[$i][0]\n";
print "hope 2 $monthhash{trim($months->[$i][0])}\n";
print "hope 2A $monthhash{$months->[$i][0]}\n";