Created by www.tryperl.com.

Untitled.pl

#Created by tryperl.com
use strict;
use warnings;

print "Go Ahead and edit me!";
print "Once you are done editing, click SAVE to save changes :D";
# print <>; #you can use the STDIN to put data into your program 

my @arr = ('this','is','a','line','of','text');

print "\n\n";
foreach (@arr) {
    print "$_ ";
}
print "\n";

@arr = sort {$a cmp $b} @arr;

foreach (@arr) {
    print "$_ ";
}
print "\n";