#! /usr/local/bin/perl -w

use strict;

sub  forward ($$) {$a cmp $b}
sub backward ($$) {$b cmp $a}

my $sorter = [\&forward, \&backward];

my @list = qw(kholsky stencil dnubietna barkhausen
    manganese fairing fleische flake schlozhauer gascoigne);

my $offset = shift || 0;

print "$_\n" for sort {$sorter->[$offset]->()} @list;