And the slice "equivalent" would be

my ($y, $m, $d) = @{[localtime(time)]}[ 5, 4, 3 ];
[download]

These construct an array, which makes them slower.