#!/usr/bin/perl

@students = qw(Robert Amanda Chris Jan);
print "students are: @students\n";
# students are: Robert Amanda Chris Jan

@students1 = sort{$a cmp $b}@students;
@students2 = sort{$b cmp $a}@students;

print "students1 : @students1\n";
# students1 : Amanda Chris Jan Robert
print "students2 : @students2\n";
# students2 : Robert Jan Chris Amanda