$_="0*1*2*3*4*5*6*7*8";
eval '(' . 'undef,' x 5 . '$hic)=split/\*/';
print $hic;