#!/usr/bin/perl

use strict;
use warnings;

my @array = 1..100;

sub backward { $b <=> $a }

mysort(\&backward);

sub mysort {
   my $func = shift;
   
   print join("\n", sort $func @array);
}