My first suggestion would be to change $key to $key1:

foreach my $key1 ( sort keys %seen ) {

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