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