Perl подскажите как обработать массив

Есть строка @date :
print "@date\n"; # 2005 3 8
Как сделать чтобы в переменной $y было 2005, $m=3, $d=3 ?
пробовал так:
 my ($y, $m, $d) = split (/ /,@date);
print "$y $m $d"; # вижу 3   :(
Помогите плиз.