>>79
欲しいのは「二次元配列の最後の(undefではない)要素の値」なのか、
「その年・月の末日の日付」なのか、どっち?

後者ならその配列の値を参照する以外にも取得方法はあると思うが。

use Date::Calc qw(Days_in_Month);
print Days_in_Month($year,$mon);

とか。

まあ>>77の方法でもいいだろうけど。