#!/usr/bin/perl
#Program name: perlsort1.pl
#  sort a list of names stored in an array
@fruitList = ("Orange", "Apples", "Tangerines", "Pears", "Bananas", "Pineapples");
@sortedFruits = sort @fruitList;
print "@sortedFruits";
print "\n";