my @date = split(/\s+/, localtime);

# note the @date, when using an array slice
my($mth, $date, $year) = @date[1,2,4];

# Versus
my($mth, $date, $year) = ( split(/\s+/, localtime) )[1,2,4];