for my $x (0..0xff) {
    my $y = ( $x & 0x80 ) ?  -($x ^ 0xff) : $x;
    say "$x $y"
}