#!/usr/local/bin/perl

@array = ("this", "is", "a", "test");
@array2 = sort (@array);
print("@array2\n");

@array = ("32", "100", "11", "28");
@array2 = sort (@array);
print("@array2\n");

@array = ("backwards", "is", "array", "this");
@array2 = reverse(@array);
print("@array2\n");

print ('press ENTER to EXIT');
$in = <STDIN>;