print(FH ); #### my @values = split /:/, $line; die "invalid line: '$line'" unless @values == 7;