I would probably do something like this:

#!/usr/bin/perl
use strict;
use warnings;
use autodie;

sub mprint {
    my $message = shift @_; 
    my @files   = @_;
    for (@files) {
        print $_ "$message\n";
    }   
}

my $text = 'string of text';
open( my $out, ">",  "output.txt" );
open( my $log, ">>", "my.log" );

&mprint( $text, $out, $log );
[download]