my ($date, $arr, $obj, $str) = (0, [], {}, 'foo');[  $arr, $obj, $str, $date,[ $date, $arr, $obj, $str]]