It was hard to see what was going on because you obviously patched that code together rather than pasting directly. your problem has to do with how you are creating your arrayref ... the code in your sub works fine:

#!/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";
  }   
}
[download]

[11:15][nick:~/dev/perl_dev/test/monks]$ perl 1133585.pl
LAST PAUL and 2000
DEMARCO R and 1960
JOE  M and 1981
LOU MARY and 1948
[download]