my ($day, $mon, $year, $hr, $min, $sec) = (0) x 6;

But that's super annoying because it's necessary to count the number of items:

map { ($_) = 0 } my ($day, $mon, $year, $hr, $min, $sec);

Works as well...

Récepteur audio Bluetooth professionnel ✓ Intègre les smartphones, tablettes et autres appareils Bluetooth aux systèmes audio existants ✓ L'antenne et le bouton d'appairage peuvent être prolongés ✓ Supports de montage inclus

Lecteur de CD / Lecteur de CD avec dock pour iPod