Code :
use strict;
use warnings;
my $data = "ENG(1),ESP(1,2),CHI";
my $i = 1;
my %hash = map {($i++, $_)} split(/(?<=[A-Z)]),/, $data);
# ou my @liste = split(/(?<=[A-Z)]),/, $data); si c'est une liste que tu veux
# et on le vérifie:
my ($first, @others) = sort(keys(%hash));
print "$first => $hash{$first}";
print ", $_ => $hash{$_}" foreach (@others);
|