view release on metacpan or  search on metacpan

eg/q_and_a  view on Meta::CPAN

my @importance = sort { $affinity->importance->{$a} <=> $affinity->importance->{$b} } keys %{ $affinity->importance };

my $i = 0;

for my $question (shuffle @$questions) {
    $i++;

    my @answer = ();

    my $tc = Term::Choose->new({
        prompt       => "$i. $question->{q}",
        clear_screen => 1,
    });
    my $choice = $tc->choose($question->{a});
    push @answer, $choice;

    print "\n\n\n";

    $tc = Term::Choose->new({ prompt => 'You want:' });
    $choice = $tc->choose($question->{a});
    push @answer, $choice;

    print "\n\n\n";

    $tc = Term::Choose->new({ prompt => 'How important is this to you?' });
    $choice = $tc->choose(\@importance);
    push @answer, $choice;

    $answers{ $question->{i} } = \@answer;
}

Term::Clear::clear();

# Sorted me answers
my $me = [ map { $answers{$_} } sort { $a <=> $b } keys %answers ];