$ perl -le'
my @A = qw( 1 2 3 4 5 7 21 55 66 );
my @B = \@A[ 2 .. 4 ];
${ $B[ 0 ] } = 99;
print "@A";
'
1 2 99 4 5 7 21 55 66
[download]