my ($abc) = $array[0] =~ /\.(\d+)/;