$ perl -MData::Dumper -e'
> @arr = (1, 2);
> push @{ $arr[2] }, 3, 4;
> push @arr, 5;
> print Data::Dumper->Dump([\ @arr], [q{*arr}]);'
@arr = (
         1,
         2,
         [
           3,
           4
         ],
         5
       );
$