$a ='string1';
@$a[0] = 'string2';
print @string1;

##</code><code>##

use strict;