use strict; 
use warnings; 
 
my @a =();  
 
sub func  
 
{  
my $y=shift; my $x; 
 
for ($x=2; $x<=$y; $x++)  
 
     { 
     my @copy_upper_array =  @a;      #line 14 
 
          if($y % $x == 0)  
                {  
                                   
                    foreach( @a) {  push ( @{$_}, $x );   } 
 
                  my $array_ref = [ $x ];    
 
                    push(@a, $array_ref);                   
      
                if( @copy_upper_array )                     #line 25-27 
 
    {  foreach (@copy_upper_array)  {   unshift(@a, $_);  }    } 
 
                } 
 
       } 
 
} 
 
 
&func(12);  
 
foreach(   @a  ) { print "\n  @{$_}" ; }