or better yet:
print( (a..j)[-$var..-1] )
In reply to Re^2: fall through switch/case in perl by Pragma in thread fall through switch/case in perl by ykar