Array Perl

#!/usr/bin/perl -w
# Slicing an array.
@array = (1,2,3,'red');
# Get a slice of array.
@array[0,1,2] = ('green', 'blue', 'orange');
print "@array\n";