sub mysay{ if(@_>=1){ for(@_){print("$_\n")} }else{ print "$_\n"; } } #### @a=(); mysay @a;