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

print Dumper \%calls;