$ perl -E 'use List::Util "max"; my @x = (5,3,1,6,2,4); say max @x'
6
$ perl -E 'use File::Spec; say for File::Spec::->splitdir("a/b/c")'
a
b
c