Select Code to Download

use strict;
use warnings;
...
        print "Unmatched: $colour\n";
    }
}

Matched baby blue: BB
Matched baby pink: BP
Unmatched: baby green
Matched pink: PK
Matched pinkish: PI