my $seen = 0;
	while (<$fh>)
	{
		if ( !$seen and m/^alpha$/)
		{
			$seen = 'yes indeed';
			print "true\n";
		}else{
			print "false\n";
		}
	}