my @p;
my @pos = qw(1 2 3 4);
foreach (@pos) {
    $p[$_] = '0' x 128;
}