#!/usr/bin/perl

use Data::Dumper;
open RGB, '</usr/openwin/lib/rgb.txt';

my %rgb = ();
while ( <RGB> ) {
    if ( /^(\d+)\s*(\d+)\s*(\d+)\s*(.*)$/ ) {
        $rgb{ $4 }{ red } = $1;
        $rgb{ $4 }{ green } = $2;
        $rgb{ $4 }{ blue } = $3;
    }
}
print Dumper( \%rgb );