my $combined_sequence =
        seq_prod( seq(@alist), seq(@blist), seq(@clist) );

    while ( my ($a, $b, $c) = $combined_sequence->() ) {
        # do something with ($a, $b, $c)
    }