Select Code to Download

# Define an array:
my @basket = qw(apple banana cherry);
...
# Change an element:
$basket[1] = "date";
print "Now it is $basket[1]\n";

# Define the hash:
my %basket = (
...
# Getting rid of an element:
delete $basket{apple};
print "Fruits in my basket: ", join(", ", sort keys %basket), "\n";