use strict;
use warnings;

my @array1 = ( "this is a line\n", "this is a second line");
my @array2 = qw( one two three);

sub1 ( @array1 );

sub sub1 {

    send_status_email('xxx@yy.com', 'subject',@_, \@array2);
}

sub send_status_email {

    my ($to_address, $status, $message, $ar_attachments ) = @_;
    print "To:     $to_address\n";
    print "Status: $status\n";
    print "Message <$message>\n";
    foreach ( @$ar_attachments ) {
        print "ar: $_\n";
    }
    print "***************** sub finished\n";
}

__END__

** output **

To:     xxx@yy.com
Status: subject
Message <this is a line
>
Can't use string ("this is a second line") as an ARRAY ref while "strict refs" in use at C:\usr\dms\perl\test_sub_array.pl line 20.