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