RosettaCodeData/Task/Enumerations/Perl/enumerations.pl

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 );