my $count;
while (1) {
    $count++;
    my @chunk = splice(@fred,0,20);
#   do something with @chunk
}