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