...

errors(
                   all_msgs => \@all_files,
                   msg_subject => 'Error files',
                   mail_msg => 'Listed files for processing:',
                 );

sub errors {

 my (%args) = @_;
 
 my @all_msgs      = $args{all_msgs}       || '';
 my $msg_subject   = $args{msg_subject}    || '';
 my $mail_msg      = $args{mail_msg}       || '';

 ...
 foreach my $msgs(@all_msgs) {
     
     print "$msgs\n";
...     
}

...

}