#!/usr/local/bin/perl
print "input the no of lists you want\n";
$list = <STDIN>;
chop ($list);
$i = 0;
while ($i < $list)
{
print "input the name of person in list\n";
$name[$i] = <STDIN>;
chop $name[$i];
$i = $i + 1;
}

print "the mumber of the person you want in the list\n";

$i = <STDIN>;
chop ($i);
print "the name of the person is $name[$i]\n";

