use strict;
use warnings;
use Data::Dump;

my  %colours = ( blue => "1", green => "2", red => "3", pink => "4", purple => "6" );
my  %reverse_colours = reverse %colours;
dd \%reverse_colours;

printf "The colour corresponding to %d is %s\n", 1, $reverse_colours{1};


##</code><code>##

13:32 >perl 1703_SoPW.pl
{ 1 => "blue", 2 => "green", 3 => "red", 4 => "pink", 6 => "purple" }
The colour corresponding to 1 is blue

13:32 >