tr/,/./ for ( $var1, $var2 );