{ 
    local @data; 
    $data[ $_ ]{unit} = 'something' for 0 .. $#data; 
    ... 
} 
# all changes undone here