$ perl -w -e 'use List::Util qw(min);
@a = (-10...-5);
print "@a\n",min(@a);'
-10 -9 -8 -7 -6 -5
-10