Select Code to Download

#!/usr/bin/perl
use strict;
...
     print "$basket_nbr \t$b->{type} \t$b->{count} \t@{$b->{fruit} }\n
+";
   }

Basket# Type         Count     Contents -------
1     All Season     255     Apple pear Banana Peach Grapes
2     Tropical     3     papaya guava mango