my @metrics=`cat a.txt`;
my %labels = map {$_=> $metrics[$_]} (0..$#metrics);
print $q->checkbox_group(-name=>'a',
                         -values=>[(0..$#metrics)],
                         -labels=>\%labels);