no warnings;
$\="\n";
my $ar=[1..9];
print $ar->[1];
print $ar->[4..5]; # produces warning
print @$ar[4..5];
__END__
2
1
56