In his code he has no comma (or dot) between $colour and "$num", this makes Perl assume that $colour is a filehandle. which is why he probably gets the error print() on unopened filehandle