Select Code to Download

my %loc = (
    LA  => { NE => 1, E  => 1, SE => 1, S  => 1, SW => 1 },
...
    LC  => { SE => 1, S  => 1, SW  => 1},
    LD  => { SE => 1, S  => 1, SW => 1},
);

my @locations = qw(LA LB LC LD LE);

#!/usr/bin/perl -w
use strict;
...
}
print "Results= $c_position\n\n";