Wie behalte ich eine Variable aus einer vorherigen Textzeile in einer while-Schleife (Perl) für einen anderen Abschnitt des Codes?

Question

Ich bin neu in Perl und konnte keine Antwort auf dieses spezielle Problem finden. Ich analysiere gerade einen Text. Ich möchte, dass einige der Einträge in einer Zeile als Eingabe für andere Zeilen verwendet werden. Im Folgenden möchte ich, dass $sec für Nachrichten verwendet wird, die mit "M" beginnen. Mein Code lautet wie folgt:

#identify the type of message here:
my $message = substr $_, 0, 1;

if ($message eq "T") {

    my $sec = substr $_, 1, 5;

    #no ms entry here
    my $ms = 66666;

    push @add_orders, $_;
    print add_order_file "$sec, $ms\n";  
}

if ($message eq "M") {

    my $ms=substr $_, 1, 3;
    push @add_orders, $_;

    #I want $sec to be from the previous 
    print add_order_file "$sec, $ms \n";
}