#!\usr\bin\perl -w

use strict;
use warnings;

print "Names of everyone in your family: ";
my @names = <STDIN>;
my @sortednames = sort(@names);
my $count = @sortednames;

for ( my $i=0; $i <= $count; $i++ ) {
	print @sortednames;
	}