#!/usr/bin/perl #program name: perlsort1.pl @somelist= ( "oranges", "apples", "tangerines", "pears", "bananas", "Pineapples"); @sortedlist = sort @somelist; print "@sortedlist"; print"\n";