my $fname       = "My First Name";
my $mname       = "My Middle Name";
my $lname       = "My Last Name";

&tst_array1 ($fname, $mname, $lname);
&tst_array2 ($fname, $mname, $lname);
&tst_array3 ($fname, $mname, $lname);

sub tst_array1 {
    my ($param1, $param2, $param3);
    $param1 = shift;
    @_ ? $param2 = "Shift" : $param2 = shift;
    @_ ? $param3 = "Shift" : $param3 = shift;
    print "In tst_array1:\n$param1, $param2, $param3\n";
}

sub tst_array2 {
    my ($param1, $param2, $param3);
    $param1 = shift;
    @_ ? $param2 = shift : $param2 = "Shift";
    @_ ? $param3 = shift : $param3 = "Shift";
    print "In tst_array2:\n$param1, $param2, $param3\n";
}

sub tst_array3 {
    $param1 = shift;
    print "\@_ = @_: \$param1 = $param1\n";
    $param2 = shift;
    print "\@_ = @_: \$param2 = $param2\n";
    $param3 = shift;
    print "\@_ = @_: \$param3 = $param3\n";
    print "In tst_array3:\n$param1, $param2, $param3\n";
}

##</code><code>##

My First Name, My Middle Name, My Last Name

##</code><code>##

My First Name, Shift, Shift
@_ = My Middle Name My Last Name: $param1 = My First Name
@_ = My Last Name: $param2 = My Middle Name
@_ = : $param3 = My Last Name

##</code><code>##

My First Name, My Middle Name, My Last Name