open ( my $in, "input.txt");
@let=('a'..'z');
foreach my $let(@let) {
	$hash{$let}=1;
}

while (my $line=<$in>){ #вычленили строку
	chomp($line);
	@words=split(' ',$line); #массив слов строки
	print (@words);
	
}