my ($hash, $file) = @_;
  my $dir = "C:\\Program Files\\ArcMan\\";
  if(-e $dir.$file){
    open(TABLE, $dir.$file);
    while(<TABLE>){
      my($key, $value) = split(/\t/,$_);
	$$hash{$key} = $value;
	}
	close (TABLE);
	}else{
         ErrorDialog("$file does not exist. ", $!);
	}
	
#delete last eol return in text file so it does not appear #in hash

delete $$hash{"\n"};