$ perl -le 'print vec(0x37, $_, 1) for 0..7'        # Ooops!!!
$ perl -le 'print vec(chr(\x37), $_, 1) for 0..7'   # Much better. 
$ perl -le 'print vec("\x37", $_, 1) for 0..7'      # This works too.