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