$y=0;
while ($y<5) {
	$a=<>;
	chomp($a);
	@farray=(@farray, $a);
	$y=$y+1;
}
print (@farray);
print ("\n");