- or download this
Fruit Jan feb mar apr
Apple 40 45 50 54
orange 12 25 24 29
Pineapple 10 20 30 40
- or download this
{apple => [40,45,50,54]
Orange =>[12,25,24,29]}
- or download this
use strict;
use warnings;
...
for my $key (sort(keys(%data))) {
printf("%s=> %s\n", $key, join(' ', @{$data{$key}}));
}