#!/usr/local/bin/perl
@v = split(/\s+/,`cat shortdict.txt`);
while(@v) {
$key = shift(@v);
$val = shift(@v);
$val =~ s/#//;
print <<EOS;
<input type=\"radio\" name=\"color\" onClick=\'color_set(\"$val\")\'>
<font size=2 color=#$val> $key</font><br>

EOS
print $item;
}
