sub after{ my $target=shift; shift @_ until $_[0] eq $target; return @_ };;
@a = 'a'..'z';;

print after( 'm', @a );;
m n o p q r s t u v w x y z

print after( 'e', @a );;
e f g h i j k l m n o p q r s t u v w x y z

print after( 'y', @a );;
y z