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