use warnings;
use strict;

my @all_files = 5..7;
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";
    }
}

__END__

5
6
7