my $storage = "";
foreach my $which (0..1023) {
  vec($storage, $which, 8) = 10 + rand(90);
}
print "stored in ".length($storage)." bytes\n";
foreach my $which (0..1023) {
  print "item $which is ", vec($storage, $which, 8), "\n";
}
[download]

-- Randal L. Schwartz, Perl hacker