#!/bin/perl -w
sub readHash{
        @vars = @_;
        $filename = $vars[0];
        print "waht".$filename."\n";
        my %iptable = ();
        if(open(IN,$filename.".txt")) {
                while(<IN>) {
                        @tmp = split(/\t/);
                        $iptable{$tmp[0]} = $tmp[1];
                }
        }
        return %iptable;
}

@arr = ();
%ipaddress = readHash("ipadress");
%school = readHash("school");
%city = readHash("cities");

push(@arr,\%ipaddress);
push(@arr,\%school);
push(@arr,\%city);
print "directly reference:\n";
print $arr[1]{"PITT"};
%sctable = %{$arr[1]};
print "copied a new one:\n";
%citytable =%{$arr[2]};

print $sctable{PITT}."\n";
print $citytable{"PIT"}."\n";