http://www.perlmonks.org?node_id=1001941


in reply to Building a data structure - %HoH, %HoA?

(my $team, my $loc, my $tool, my $amt) = (split /[,]/)[1,2,3,4];
should be
my ($team, $loc, $tool, $amt) = (split /[,]/)[0,1,2,3];
or
my ($team, $loc, $tool, $amt) = split /[,]/;

The index of the first element of an array/list is 0, not 1!

Jenda
Enoch was right!
Enjoy the last years of Rome.