my $iter = combinations( $k => \@vertices );

SUBSET:
while ( my @subset = $iter->() ) {
    my $pairs = combinations( 2 => \@subset );
    while ( my @pair = $pairs->() ) {
        next SUBSET unless @pair is an edge in the graph;
    }
    print "@subset is a $k-clique\n";
}