my @list = ();
my $lastc_33 = '';
my $lastd_34='';
my $last_33='';

......

if( $_->{ TEST33 } eq $lastc_33 && $lastd_34 =~/8/ && $last_33 =~/00/ && $_->{ TEST34 } =~/7/ && $_->{ TEST33 } =~/00/ )  {

}
else  {
          $lastd_34 = $_->{ TEST34 };
          $last_33 = $_->{ TEST33 };
          push (@list, $_);
       }