send(SOCKET,  @Cheese_Array ,0, $paddr);    || die "send $host: $!";

##</code><code>##

foreach $item(@madArray) {
send(SOCKET,  pack("b8", $item) ,0, $paddr);  #  || die "send $host: $!";
}