my $code_ref = sub {print "Hello, $_[0]\n"};