#!/usr/bin/perl -w
    use strict;

    my $sortname = shift;
    print join ' ', sort $sortname 1..20;

    sub num { $a <=> $b }
    sub alpha { $a cmp $b }