foreach my $product (@products) {
    &{$subs{$product}};
}