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