my @dates = (
	'20080101', '20080102', '20080103', '20080104', '20080105', '20080106',
	'20080107', '20080108', '20080109', '20080110'
);
##</code><code>##

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

print Dumper \%calls;