>>79
俺だとこうするかなぁ。行頭の空白全角にしてるけど：

my $last_day = (
　　grep { defined $_ }
　　map { @{$_} }
　　@current_month
)[-1];