#!/usr/bin/perl -w

use strict;
use warnings;

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

for ( $i=0; $i <= $count; $i++ ) {