Select Code to Download

print join(',', @{ $uword{ $seen{ $key }[ 1 ] }[ 1 .. $#{ @uword{ $see
+n( $key ) } } ] } );