Select Code to Download

...snip...
<input type="checkbox" value="5100" name="buscodes" >5100 Industrial M
+anufacturers<br>
...
<input type="checkbox" value="5210" name="buscodes" >5210 Internet Dis
+tributors<br>
<input type="checkbox" value="5300" name="buscodes" >5300 Business Equ
+ipment M & D<br>
...snip...

foreach my $val (qw(2800 2820 2830 2840 2850)) {
    $m->field('buscodes', $val);
}