#!/usr/bin/perl -w

use strict;

my @argA = ('hallo', 3, 'Hallo', "", 22, "das war's" );
print "Unsortiert\n";
for (0..5) {
  if(defined $argA[$_]) {
    print "$_=$argA[$_] <\n";
  }
  else {
    print "$_ ist undefiniert\n";
  }
}

@argA = sort @argA;
print "\nSortiert, lexikalisch\n";
for (0..5) {
  if(defined $argA[$_]) {
    print "$_=$argA[$_] <\n";
  }
  else {
    print "$_ ist undefiniert\n";
  }
}

@argA = sort {$a <=> $b}  @argA;
print "\nSortiert, numerisch aufsteigend\n";
for (0..5) {
  if(defined $argA[$_]) {
    print "$_=$argA[$_] <\n";
  }
  else {
    print "$_ ist undefiniert\n";
  }
}