use warnings;
use strict;

my @strings;
print "How many line";
my $num = <STDIN>;
for my $count (1 .. $num) {
    my $line;
    chomp( $line = <STDIN> );
    push @strings, $line;
}