#print Dumper( \%Hash_filematches ); -->Shows correct data

##</code><code>##

	print "PRINTING MATCHED HASHES\n";
foreach my $key ( keys %Hash_filematches ) {
	delete $Hash_filematches{"$key"} if(!exists($Hash_filematches{"$key"}));
        my $value = $Hash_filematches{$key};
        print "$key => $value\n" ;
    }

##</code><code>##

PRINTING MATCHED HASHES
array.xml => ARRAY(0x1b26ac8)
file.xml => ARRAY(0x1b26af8)
data.xml=> ARRAY(0x1b26ae0)
multimedia.xml => ARRAY(0x1b26b58
......
......