my @array3 = sort { $a <=> $b } map { $_ %= 5 } @array;