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