if ( $data->[0][1] eq "large" ) {    #something like this or...
   $data->[0][1] = uc ( $data->[0][1] );
}