@Cities_DE = ('Berlin','Hannover','Hamburg');
@Cities_US = ('New York','Miami','Las Vegas');
%Cities = ('DE' => \@Cities_DE,
           'US' => \@Cities_US);
print "Where are you?".join(',',@$Cities{$Country});