my %hash;
foreach my $val(@array){
   push @{$hash{$val}}, database_call($val)
}