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);

##</code><code>##

Can't use string ("This ") as an ARRAY ref while "strict refs" in use at C:\Projects\test.pl line 5.

##</code><code>##

my $SubRef = sub ($$){

##</code><code>##

$SubRef->(\@Array , $Scalar);

##</code><code>##

my $SubRef = (\@$){