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

my $werte='';

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

my @l=unpack('(iccs)*',$werte);
while(@l)
{
  my @back=splice(@l,0,4);
  pop(@back);
  print "@back\n";
}