perl -F',' -lane '$F[1] = uc $F[1]; print join ",", @F' contacts.csv