my %seen;
for (0..$#data) {
    next if ( $seen{$data[$_]}++ );
    print join "\n", $key1[$_], $key2[$_], $data[$_], "";
}
[download]