#!/usr/local/bin/perl
@camel_herd = ("black one","brown one","Freda","Cletus","gray one");
@camel_herd = sort @camel_herd;
print join "\n",@camel_herd;