my @h;
my @i= (0..1);
@h[@i]= split //, $i[ 2 ]= "03";
print "(@h)\n";
__END__
Use of uninitialized value in join or string at P:\test\junk.pl line 4.
Use of uninitialized value in join or string at P:\test\junk.pl line 4.
(0 3  )