автоматическое заполнение -values в popup_menu (модуль CGI)

[sickboy]

Привет.

Есть такой массив:
%yl = (\'2005\' =>  \'2005\',
       \'2006\' =>  \'2006\',
       \'2007\' =>  \'2007\',
        ...
                    );

и такая конструкция:
print $q->popup_menu (-menu     =>      \'year\',
                      -default  =>      $cy+1900,
                      -values   =>      [\'2005\',\'2006\',\'2007\',\'2008\',\'2009\',\'2010\'],
                      -labels   =>      \\%yl);

Никак не соображу, как можно автоматизированно записать значение ключей массива в поле -values   =>, натолкните пожалуйста на мысль.

[Green Kakadu]

-values   =>      [ sort {$yl{$a} <=> $yl{$b}} keys %yl ]
только это не массив а хеш

[sickboy]

Спасибо.