#! /perl/bin/perl 

use strict;

my @letters = ("red","red","red","blue","white","yellow","blue","navy","navy","green","white","cars");

foreach my $i (sort(@letters)) {

print "$i\n";

}