#!perl

use strict;
use warnings;

my @zeilen = (qw/a c b f g rt d/);

my $vorherige_zeile = '';
foreach my $aktuelle_zeile ( @zeilen ) {
    chomp($aktuelle_zeile);
    if( $aktuelle_zeile eq 'rt' and $vorherige_zeile eq 'g' ) {
        print "$vorherige_zeile stand vor $aktuelle_zeile\n";
        last;
    }

    # -- letzte Zeile merken
    $vorherige_zeile = $aktuelle_zeile;
}