#!/usr/bin/perl
# Idiom #264 Automated passing of array bounds
sub foo {
my ($a) = @_;
}
my $a = [[1,2,3], [4,5,6]];
IyEvdXNyL2Jpbi9wZXJsCgojIElkaW9tICMyNjQgQXV0b21hdGVkIHBhc3Npbmcgb2YgYXJyYXkgYm91bmRzCgpzdWIgZm9vIHsKICAgIG15ICgkYSkgPSBAXzsKICAgIHJldHVybiBzY2FsYXIgQHsgJGEgfSwgc2NhbGFyIEB7ICRhLT5bMF0gfTsKfQoKbXkgJGEgPSBbWzEsMiwzXSwgWzQsNSw2XV07CnByaW50ZiAiJWQgJWRcbiIsIGZvbygkYSk7Cg==