michael@x054:[/data/prj/labserv/perftools/perl]cat *2.pl
@coins = ("Quarter","Dime","Nickel");
print "@coins";
print "\n\r";
print sort(@coins);
print "\n\r";

michael@x054:[/data/prj/labserv/perftools/perl]perl *2.pl
Quarter Dime Nickel
DimeNickelQuarter