sub d { &{shift(@_)} }
d d $x;