Select Code to Download

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

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