foreach $file (@files) {
	print Dumper $file;
	foreach $t(keys %$file){
		print "\nt= $t v=" . $file->{$t};
	}
	..