print "Yep.\n" if $lines[0][0] eq 'foo';