#!/usr/bin/perl -wuse strict;my @unsorted = qw(A C B E D);print "Unsorted: @unsorted\n";my @sorted = sort @unsorted;print "Sorted: @sorted\n";