Select Code to Download

use strict;
use warnings;
...

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

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 >