perl -MData::Dumper -e '$#foo = 4; print Dumper \@foo'