Array Perl

#!/usr/local/bin/perl 
@array = ("old1", "old2", "old3", "old4"); 
@array[1,2] = ("new2", "new3"); 
print ("@array\n");