my ($scalar_1,$scalar_2,$scalar_3,$scalar_4) = split(/\./,$array[0]); # is it [0]?