use strict;
my $SubRef = sub (\@$){
    my $ArrayRef = shift;
    my $Scalar   = shift;
    foreach my $item (@$ArrayRef){
        print "$item";
    }
    print "\n";
    print "$Scalar";
    print "\n";
};
my @Array  = ("This ", "Is ", "A ", "Test ", ".");
my $Scalar = "That was a test.";
$SubRef->(@Array , $Scalar);