Array Perl

#!/usr/bin/perl
use strict;
use warnings;
my @array = ('a', 'b', 'c', 'd', 'e', 'f');
print "@array \n";   # produces 'a b c d e f'
$array[6] = "g";
print "@array \n";   # produces 'a b c d e f g'