#!/usr/bin/perl -w
use strict;

my $arrayref  = [ 
          {   
            'NAME' => 'LAST PAUL',
            'YEAR' => '2000',

          },  
          {   
            'NAME' => 'DEMARCO R',
            'YEAR' => '1960',

          },  
          {   
            'NAME' => 'JOE  M',
            'YEAR' => '1981',

          },  
          {   
            'NAME' => 'LOU MARY',
            'YEAR' => '1948',
          },  
    ];  


 while ( my @data = splice( @{ $arrayref }, 0, 100 ) ) { 
   foreach my $row (@data) {
     my $name     = $row->{NAME};
     my $year     = $row->{YEAR}; 
             
    print "$name and $year\n";
  }   
}