for ($atied[1]) {
   s/a/z/;   
}