foreach my $key1 ( sort keys %seen ) {

   print join( "\t", $key, @{ $seen{$key1} } );
    }