my $mboxfhandle;

# open $mboxfhandle for readonly

my @mbox = <$mboxfhandle>;  # Let's use lots of memory

# rest of the process ...