$N=<>; @_=<>; if(@_==0){ exit-1; print+(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/for 1..$N }elsif($N=~$"){ print$`+$',$",@_ }elsif(@_>=2){ $x+=$_ for@_; print$x,$/ }elsif(@_){ map$x+=$_,glob"@_"; print$x,$/ }else{ print"Hello World!\n" }