for my $d (qw/beginner easy medium advanced hard/) {
$htc->param($d => [grep {$_->{level} and $_->{level} eq $d} @problems]);
}
$htc->param(levels => grep { $_->{level} } @problems);
$htc->param(problems => \@problems);
for my $d (qw/beginner easy medium advanced hard/) {
$htc->param($d => [grep {$_->{level} and $_->{level} eq $d} @problems]);
}
$htc->param(levels => grep { $_->{level} } @problems);
$htc->param(problems => \@problems);