my @a = ('a0'..'a9'); 
unshift @a, \$a[2]; 
print Dump \@a;