You're only passing one argument (r), example

my @FOO = ( 1, 2, 3 );
my $foo = [ 1, 2, 3];

warn @FOO;
die $foo;
__END__
123 at - line 5.
ARRAY(0x224f5c)
[download]