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