in reply to Re: fall through switch/case in perlin thread fall through switch/case in perl
or better yet:
print( (a..j)[-$var..-1] )