foreach my $i ( 0 .. $#list ) {
    local $_ = $list[ $i ];

    # ...

    $data->{ IS_LAST } = ( $i == $#list );

    # ...
}