@a=(0..9);
@b=(4..6);
$a[@b ]= qw/a b c/;