use List::Util::IsSorted 'is_sorted';
print is_sorted { $a <=> $b } 1, 3, 5, 5, 8;   # prints 1