# open FILE
while(<FILE>) {
  # The []'s make an anonymous array, so each element
  # of @lines is actually an array-ref.
  push @lines, [split /\|/, $_];
}

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