my $ctr = 'a';
$ctr = chr( ord($ctr) - 1);