Help for this page
use strict; use warnings; ... $hash{splice @elements, 0, 1} = \@elements; } print Dumper \%hash;
fruit Jan feb mar apr Apple A 40 45 50 54 orange O 12 25 24 29 Pineapple P 10 20 30 40