Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $array = [qw(this is a test to check anonymous arrays)];
print "@{$array}\n";
print "$array->[3]\n"

C:\perl\practice>perl ref2.pl
this is a test to check anonymous arrays
test