my $out = ">./coffee.tmp";

##</code><code>##


open OUT, $out || die "Can't open $out!\n";
open FILE, $file || die "Can't open file oldcoffee!\n";
close FILE, $file || die "Can't close file oldcoffee!\n";
close OUT, $out || die "Can't close $out!\n";

##</code><code>##


    $mails[$#mails + 1] = $_;

##</code><code>##

    push @mails, $_;


##</code><code>##


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

my $file = 'oldcoffee.tmp';
my $out  = 'coffee.tmp';

open FILE, '<', $file or die "Can't open file $file! $!\n";

while ( <FILE> ) {
    if ( /^From / && /(\d{4})$/ ) {
        # Update: changed 'readonly' to 'append'
        open OUT, '>>', "$1$out" or die "Can't open $1$out! $!\n";
    }
    fileno OUT and print OUT;
}

close FILE or die "Can't close file $file! $!\n";

__END__