How do I whack the output of the shell command "exim -bp" into an array?

[Spickachu]

I feel like this is sorta cheating. It's crude but I don't get paid enough to do anything more fancy for now!

# file: Mailq_Check.pl

open STDOUT, ">mailq_check.log";
system "mailq | grep frozen";
close STDOUT;

exec `perl mail_report.pl mailq_check.log`;

# file: mail_report.pl

while (<>) {
    @array = $_;
    $mail_fault_cnt++;
}

if ( $mail_fault_cnt > 0 ) {
    exec `more mailq_check.log| mail -s MailQ_Error sstock\@essex.ac.u
+k`;
}