#!/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";
}

#!/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++;
}