A couple things I noticed. First of all, line 4 of your script doesn't have a # before it. You may want to look into using pod for that. Next (Line 9 $cities) why would you use an array ref there!? Your array ref isn't doing anything, that I can see, that a normal array wouldn't do. Also, it great that you're using lexical scopes on all the variables, but you might want to try using strict and warnings, they are my saviors. Just my $.02 :)

__________________________________________________

s mmgfbs nf, nfyojy m,tr yb-zya-zy,s zfzphz,print;
- thanks japhy :)

mexnix.perlmonk.org