my $a;
$a = tr/$a/zyxw/cds
