while(<DATA>)
{
for($a=0;$a scalar@codes;$a++)
	{
	s/$codes[$a]/$a/;
	}
}
print $_;