$array[0] =~ s%^,%%g;