Indeed, and the indexes start at zero, not one. Actually, one could simply use a foreach loop.

open(my $fh, '>:raw', $fn)
   or die "Couldn't open file for writing: $!\n";

for my $hex ( @{ $gBuf{$bName} } ) { 
    printf $fh pack('C', hex($hex));
}
[download]