use strict;
my $i = 1;
my @recordnum = ('this', 'that', 'those');
my @record = (1, 2, 3, 4);

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