while (<FH>) { # read the file, line by line into $_
($key, @values)=split /\s+/, $_; set $key to the first item in the line, and the rest of the values gathered by the split get dumped into the array
foreach (@values) { # traverse the array, and output the key value, and each item in...