#!/usr/bin/perl 
#
@names = qw { steve Mary alice Robert MARVIN kENneth tiM }  ;
#
foreach $name (@names) {
 print "Name = $name\n" ;
} ;
#
print "\nSorted names 1 \n" ;
# New code to sort and print names goes here.