Select Code to Download

%newhash = reverse do { my $hash = reverse %myhash; %hash };

@unique_keys = do { my $hash = reverse %myhash; values %hash };

%myhash = (1 => 'a', 2=> 'b', 3=> 'a', 4=>'c',5 => 'b', 6 => 'a');
@k = do {
...
3 => a
2 => b
5 => b