#Passing arguments$first="Tom";$last="Kary";&greeting ( $first, $last );sub greeting{ print "@_", "\n"; print "Welcome, $_[0] $_[1]!\n";}