Build a hash of hashes (see perldsc) with the first hash keyed off the first column, the second level keyed off the second, and the value being the third. Then for each item in keys %hash print out the values for each of keys %{$hash{ $first }}.