my ($red, $green, $blue) = map int rand 255, 1 .. 3;