-- def_macro hello
my @in = map { chomp;length($_) ? $_ :() } (@ARGV,<STDIN>);
chomp(@in);
@in = "world" unless @in;
print "Hello $_" for @in;