in reply to Re: fall through switch/case in perl
in thread fall through switch/case in perl

print splice @{[a..j]}, -$var

or better yet:

print( (a..j)[-$var..-1] )