Select Code to Download

my @dates = (
    '20080101', '20080102', '20080103', '20080104', '20080105', '20080
+106',
    '20080107', '20080108', '20080109', '20080110'
);

foreach my $d (@dates) {
    %calls = &call_type( $d, $d );
}

print Dumper \%calls;