my @KEY = split (/[\s:]/,$_); #### my @KEY = split( /: /, $_ ); #### for each data line { grab the key loop assign data rows to the array of arrays until there's no more data assign array of arrays to hash }