Select Code to Download

use strict;
my $i = 1;
...
my @record = (1, 2, 3, 4);

print "<button type='submit' name='butCat' class='sub' value='$recordn
+um[$i]'><b>$record[$i]</b></button>";