$h{'sub'} = sub { return "Hello World\n" };