my @a = (0..9);

my @b = ( \( @a ) )[0..4]; 

${ $b[3] } = 'It changed';

print "@a";
0 1 2 It changed 4 5 6 7 8 9