Select Code to Download

  my $ref = [0 , 1 , 2 , 3] ;

  my @array = (0 , 1 , 2 , 3) ;
  my $ref = \@array ;

  $main_ref = [1 , 2 , 3] ;
 
...

  $ref2 = 'not a ref anymore' ;