%hash = (a => 1, b => 1, c => 2);

%hash = reverse %hash; # key/value -> value/key
%hash = reverse %hash;

foreach $key ( keys %hash ) {
    print $key, " => ", $hash{$key}, "\n";
}