How to reslove array hash issue

Question

  my %geo_location_map = (
                             US => [ 'US', 'CA' ],
                             EU => [ 'GB', 'ES' ],

                           );
   $location= "US" ;
   my $goahead = 0;

    if (exists  $geo_location_map{US} ) {
    print "exists";
        my @glocation =  $geo_location_map{US};

    foreach @glocation { 
        if ( $_ eq "$location"} { $goahead=1; last;}  
        }
    }

I tried its not working

Answer 1

$geo_location_map{US} contains an array reference; if you want to copy the array to @glocation you need to dereference it:

my @glocation = @{$geo_location_map{US}};

Answer 2

First of all, always "use strict" in your scripts. You had multiple errors. see :

my %geo_location_map = (
    US => [ 'US', 'CA' ],
    EU => [ 'GB', 'ES' ],
);
my $location= "US" ;
my $goahead = 0;

if (exists  $geo_location_map{US} ) {
    print "exists";
    my @glocation =  $geo_location_map{US};

    foreach (@glocation) {

        if ( $_->[0] eq "$location") {
            print "ahead\n";
                        $goahead=1;
            last;
        }
    }
}

As jim davis said, you had ann array ref. Moreover, some bracket errors, no big deal