my $line0 = <STDIN>;
my $line1 = <STDIN>;
my $line2 = <STDIN>;
chomp $line0;
chomp $line1;
chomp $line2;
@strings = ($line0, $line1, $line2);


##</code><code>##

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