Your problem statements in recent submissions are rather confusing.

I think the structure you are seeking is a HASH-OF-ARRAYS. Something like this:

my %Accountinfo;

$Accountinfo{E200} = [200, 300, 400];
$Accountinfo{E400} = ["EFG"];

#Now , you can iterate through all stores for all accounts:

for my $acct (sort keys %Accountinfo){

   for my $store (@{ $Accountinfo{$acct} } ){
      print "Account $acct has store $store\n";
   }

}
[download]

If this is confusing, please study REFERENCES in perl. (perldoc perlref from a command line).