#!/usr/bin/perl -w @array = ('red', 'green', 'blue', 'orange', 'maroon'); print "Before: @array\n"; @sorted = sort(@array); print "After: @sorted\n";