Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;

...
    $hash{splice @elements, 0, 1} = \@elements;    
}
print Dumper \%hash;

Select or download this

fruit    Jan feb mar apr
Apple A  40  45  50  54
orange O 12  25  24  29
Pineapple P 10 20 30 40