Select Code to Download

#!/usr/bin/perl
use warnings;
...
my %hue = map { $_ => hue($_) } @colours;
my @sorted = sort { $hue{$a} <=> $hue{$b} } keys %hue;
say "@sorted";