#!/usr/bin/perl

sub extract {
   my($i,$y) = @_;
   print "Unpack $i: " . (join ',',unpack('w*',$y)) . "\n";
}

$x=4294967296;

foreach(1..9) {
   $z=pack('w*',$x);
   &extract($_,$z);
}