my @list = splice(@array,0,8);
s/\.//g foreach @list[1..6];
[download]