open FILE, "$file_to_process" or die;
my %hash;
     while (my $line=<FILE1>) {   
     chomp;
   (my $xmltag, $xmlvalue) = split /\<|\>/, $line;  
          $hash{$xmltag} = $xmlvalue;   
    }