use strict;
use Config::Tiny;

my $Config = Config::Tiny->read( 'ZipCodes.ini' );

sub check {
 my $code = shift;
 return $Config->{_}{$code} or die "No such code '$code' "; 
}

my $st_name = check ( $code ) ;