print $fh join("|", @evilhash{$id}{@colors}), "\n"

or this @{$evilhash{$id}}{@colors}