You could modify the line in question like this:

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

Or even:

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

But whatever approach you choose, make sure that you comment it so it's clear why you do it.