my $flag=0;
for($i=0; $i<$glob; $i++){
    $_ = @text[$i];
    if(/Email address:/){
        print $_;
    }
    elsif(/Message-Id:/ and !$flag++){
        print $_;
    }    
}


##</code><code>##

my ($email,$mesgid)= ("","");
for($i=0; $i<$glob; $i++){
    $_ = @text[$i];
    if(/Email address:/){
        $email = $_;
    }
    elsif(/Message-Id:/){
        $mesgid = $_;
    }    
}
print $email,$mesgid;


##</code><code>##

while (<TEXT>){
...
}