$printHello = sub{print "Hello world\n"};