foreach my $k (keys %{$data[$i]}) { #5 keys my ($key, $val) = retrieve_kv($hash{$k}); ### CHECK IF UNIQUE - push to array and sort? ### REDO my ($key, $val) = retrieve_kv($hash{$k}) ### UNTIL ALL 5 ARE UNIQUE }