#!/usr/bin/perl
use strict;
use warnings;

# Å sende inn og ut arrays fra subrutiner er lett:

# En skikkelig unødvendig og teit subrutine som sorterer mot alfabetet:
sub descsort (@) {
	my @array = @_;
	my @output = reverse sort @array;
	return @output;
}

my @array = ('hei', 'hå', 'aha');
foreach my $ord (descsort(@array)) {
	print "$ord\n";
}