C:\test>p1
$packed = pack 'V*', 1 .. 1e6;;
cmpthese -5, {
    unpack => q[ my @nums = unpack 'V*', $packed ],
    unvec  => q[ my @nums; push @nums, vec( $packed, $_, 32 ) for 1 .. 1e6 ],
};;
         Rate  unvec unpack
unvec  1.45/s     --   -45%
unpack 2.64/s    81%     --

##</code><code>##

use strict;

my $wektor = '';
for my $num ( 0 .. 9_999_999 ) {
    my $binNum = pack 'V', $num;
    vec( $wektor, $num * 32 + $_, 1 ) = vec( $binNum, $_, 1 ) for 1 .. 32;
}
print "Vector's size: " .
  length( $wektor ) . " bytes\n";


my @vec;
my $Aa = time();

for my $num ( 0 .. 9_999_999 ) {
    my $binNum = '';
    vec( $binNum, $_, 1 ) = vec( $wektor, $num * 32 + $_, 1 ) for 1 .. 32;
    push @vec, unpack 'V', $binNum;
}
print "unpack vector in \t", time() - $Aa,
    "  secs...(Oh dear!!!)\n";

__END__
C:\test>junk0
Vector's size: 40000001 bytes
unpack vector in        362  secs...(Oh dear!!!)