in reply to hashes of arrays
foreach (@file) { open(FILE,"$_"); @{$hash{$_}{file_contents}} = <FILE>; close(FILE) } [download]