#!/usr/bin/perl
use strict;
use warnings;

my $werte='';

$werte.=pack('iccs',$_,-1,1,0) for(0..9);

my $cnt=0;
while(($cnt*8) < length($werte))
{
  my @back=unpack('icc',substr($werte,$cnt*8,8));
  print "@back\n";
  $cnt++;
}