use strict;
use warnings;


my $zip = '01234';


 my %zips = (
                  "City One" => "04321",
          "City Two" => "01234",
         );

 my ($zip_match) = grep { $_ eq $zip } values %zips;

 print "\n $zip_match\n"; # 01234