#!/usr/bin/perl -w

use strict;

my @array = ( 2, 5, 17, 1, 28, 30, 100, -1 );
my @array2 = ( 'x', 'v', 'z', 'p', 'a', 'b' );
my @array_sorted = ();
my @array2_sorted = ();

@array1_sorted = sort { $a <=> $b } @array;
@array2_sorted = sort { $a cmp $b } @array2;

print "@array1_sorted\n";
print "@array2_sorted\n";

__OUTPUT__

C:\perl>perl p5.pl
-1 1 2 5 17 28 30 100
a b p v x z

C:\perl>