$data->{'IS_LAST'} = 0;
   for ( my $i = 0; $i < @list; $i++ ) {
      # DO STUFF
      $data->{'IS_LAST'} = 1 if $i == $#list;
   }