Help for this page

Select Code to Download


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