# Define an array:
my @basket = qw(apple banana cherry);

# Get an element from the array:
# (remember that indexes are 0-based)
print "The second kind of fruit in the basket is $basket[1]\n";

# Change an element:
$basket[1] = "date";
print "Now it is $basket[1]\n";