my $id = 10;

for(my $i = 0; $i < $id; $i++) {

    my $data = sin($i+1)/($i+1) * 2047 + 2048;

    printf("%d: %s\n", $i, pack("S", $data));
}