If I'm reading you right, you want to access a 2D array using textual indices. Something like this

#! perl -slw
use strict;
require 5.008; # For use constant %hash syntax.

use constant {
    LONDON      => 0,
    PARIS       => 1,
    TOKYO       => 2,
    NEW_YORK    => 3,
    MILAN       => 4,
    SAN_PAULO   => 5,
};

use constant {
    FIRST_QUARTER   => 0,
    SECOND_QUARTER  => 1,
    THIRD_QUARTER   => 2,
    FOURTH_QUARTER  => 3,
    TOTAL           => 4,
};

my @sales = map{
   [ map{
       int(rand(10000))/100
   } FIRST_QUARTER .. FOURTH_QUARTER ]
} LONDON .. SAN_PAULO;

for my $city ( LONDON .. SAN_PAULO ) {
    $sales[ $city ][ TOTAL ] += $sales[ $city ][ $_ ] for FIRST_QUARTE
+R .. FOURTH_QUARTER;
}

print "@{ $sales[ $_ ] }[ FIRST_QUARTER .. TOTAL ]" for LONDON .. SAN_
+PAULO;
[download]

The upside is that the constants get translated in-line which is good for efficiency. The downside is that you can't (easily) use them to generate text for display.

There is a deprecated data structure called a pseudohash which is ideal for this, whatever its other disadvantages. To pseudohashify your AoA:

my $AoA = [ [1..3], [7..9], [3..5] ];

my $row_labels = { foo => 1, bar => 2, baz => 3 };
my $col_labels = { do => 1, re => 2, mi => 3 };
unshift @$_, $col_labels for @$AoA;
unshift @$AoA, $row_labels;

print $AoA->{'foo'}{'re'}, $/;
print $AoA->[1][2], $/;
[download]

After Compline,
Zaxo