# Doesn't work
LOCAL_BLOCK_2: {
    local $data[$_]{unit} = 'S' for 0 .. $#data;
    
    print Dumper \@data;
}

# Doesn't work
LOCAL_BLOCK_3: {
    local $_->{unit} = 'S' for @data;
    
    print Dumper \@data;
}

## Doesn't work, fatal
#LOCAL_BLOCK_4: {
#    local map {$_->{unit}} @data;
#    $_->{unit} = 'S' for @data;
#    
#    print Dumper \@data;
#}