my $ref = sub { print "(@_)\n" };