You could adapt the following to suit your purposes:

my @AoA = ( [ 1, 3, 4, 72, 99 ],
            [ 1, 4, 32, 38, 92 ],
            [ 1, 3, 4, 31, 111 ] );
my %to_bold;
for ( @AoA ) {
   $to_bold{$_}++ for @$_;
}
print $to_bold{$_}? "<b>$_</b> " : "$_ " for 1 .. 32;
[download]

dave