Help for this page

Select Code to Download

Select or download this

my $data   = join '', <DATA>;

...
4/4/04 Shoes      6          Asia
4/4/04 Shirts     12         Australia
5/6/04 Shirts     398        Australia

Select or download this

Month: 1
 Shirts      0     32      0 
...
 Shirts      0     12      0 
  Shoes      6      0      0 
   Caps      0      0      0