my %results;

for ( @array )
{
    $results{$_} = some_func($_);
}