Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
}

print Dumper \@data;

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

LOCAL_BLOCK: {
    my @units = map $_->{unit}, @data;
    $_->{unit} = 'S' for @data;
...

    $data[$_]{unit} = $units[$_] for 0 .. $#data;
}