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

##</code><code>##

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