my @COLOR;
{
    open my $fh, "<", "/usr/lib/X11/rgb.txt" or last;
    push @COLOR, /\d+\s+\d+\s+\d+\s+(\S+)/ while <$fh>;
}