For your specific problem

print join("|",@{$evilhash{$id}}{@colors}),"\n";
[download]

works like your first example.

Update: I think I need to read up on my hash slices.