my $n;
my $foo;
my @offsets = (0, 1, 3950122);

foreach (@offsets)
{
        vec($foo,$_,8) = $n++;
}

foreach (@offsets)
{
        print "$_ = ",vec($foo,$_,8),"\n";
}