c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump;
 ;;
 my @ar    = (99, 88);
 my @empty = ();
 ;;
 my $ar = [ 1, @ar, 2, @empty, 3, (), ,,,,, (), (),(), 4 ];
 dd $ar;
"
[1, 99, 88, 2, 3, 4]