my ($state, $zip) = split;
$master{$zip} = $state;