Ошибка в коде Perl

[mikle]

sub format_time {my ($min,$hour,$mday,$mon,$year,$wday) = (localtime shift()+$main::TIME_DISP*3600)[1 .. 6];
$wday = (qw( Воскресенье Понедельник Вторник Среда Четверг Пятница Суббота ))[$wday];
$mon = (qw( января февраля марта апреля июня июля августа сентября октября ноября декабря ))[$mon];
$year = $year+1900;
$min = sprintf "%02d", $min;
return "$wday, $mday $mon $year, $hour:$min";

Ошибка в последней строке. Не выводит значение $mon!
Синтаксис вроде правильный, ну не понимаю в чём ошибка.

[ondr]

Нынче декабрь, а у тебя месяц пропущен