Select Code to Download

#!/usr/bin/perl
use strict;
...
print "After assign from: " . Dumper(\@a);
@b = grep { defined $_ } @a[0..5];
print "After grep over: " . Dumper(\@a); # Didn't expect the undef's

my @b = @a[0..N-1];
foreach my $val (@b) {
   ....
}