Language Basics Perl

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