875 じゃないけど簡単に書くと
my $key = '';
for(my $i = 0; $i++; $i < 16){
　　$key .= pack("C", rand(256));
}