Help for this page
@b = grep { defined $_ } @{[ @a[0..5] ]};
@b = grep { defined $_ } @{[@a]}[0..5];