my @a = ('a','b','c');
print ((sort @a)[$#a]);