print map { m/(.+)/; $1 . "\n" } sort @array;