5 lines
126 B
Perl
5 lines
126 B
Perl
# Using an array
|
|
my @fruits = qw(apple banana cherry);
|
|
|
|
# Using a hash
|
|
my %fruits = ( apple => 0, banana => 1, cherry => 2 );
|