C do { my ($a, $b) = ([], {}); @$a = ($b, $b, $a, $a); $a; },