for my $i ( 0 .. $#list ) { 
  $data->{"IS_LAST"} = $i < $#list ? 0 : 1;
  ## ...
}