$$_ = $_ for @r;;

say $s;;
REF(REF(REF(REF(REF(REF(REF(0x3e82050)3e821e8)3e82260)3e820e0)11c458)3e820c8)335dc0)cdEFghIJklMNopQRstUVwxYZ