@foo=split/:/;<br>
for ($#foo..$required_amt){push @foo, undef}