Select Code to Download

my %hash = ( anee => '1', jane => '0', neen => '2', ); 
my $merge = join '#', sort { $hash{$a} <=> $hash{$b} } keys %hash;
$merge =~ s/([^#]*)#(?=\1)//g;
print "$merge\n";