#!/usr/bin/env perl our %mapping = ( "AA" => "AA0", "AE" => "AE0", "AH" => "AH0", "AO" => "AO0", "AW" => "AW0", "AY" => "AY0", "EH" => "EH0", "ER" => "ER0", "EY" => "EY0", "IH" => "IH0", "IY" => "IY0", "OW" => "OW0", "OY" => "OY0", "UH" => "UH0", "UW" => "UW0" ); 1;