welcome irthiza90,
choroba example is what you need using lexical filehandles. The important part is after print: print can take as first argoument an optional filehandle to work with. choroba put a block { } that return the filehandle just after the print statement. You should choice the lexical way to open filehandle instead of the older one (open FH,'>','file.log'). You'll still find many examples using the old syntax and playing with typeglobs: better if you understand both, but stick with the modern form.

This is called multiplexing output, and is what also Log::Log4perl can do for you.

You can also look at my Multiplexing log output: Log4perl of the poors that permit you to tell different level of debugging output to go to different files (the code uses the old syntax with typeglobs!).

HtH
L*