use strict;
use warnings;

  my @AoA= (                                         #actual
 [ "fred", "barney", "pebbles", "bambam", "dino", ], #ref
 [ "george", "jane", "elroy", "jenks", ],            #ref
 [ "homer", "bart", "marge", "maggie", ],            #ref
 ( "dave", "sam", "babby", "nan",),                  #actual
 );

 my $refAoA = \@AoA;                                 #refofactual
  for (@$refAoA){                        #magic
       if(ref $_){ print ref $_.$/; 
	 for(@$_){
	    if($_ eq "elroy"){
		 print $_."if event".$/;
	    }else{print $_.$/;}
	  }
	}else{
	  for($_){
	  print $_;
	  }
       }
  print $/;
 }

 do{$heep++} while !$leep;

 exit(0);