foreach (@file) {
 open(FILE,"$_");
 @{$hash{$_}{file_contents}} = <FILE>;
 close(FILE)
}