print "How many line"
my $num = <STDIN>;
for ($count = $num; $count>=1; $count--)
{
my $line;
chomp ($line = <STDIN>);
}