sub breakup_lines { open(FILE, "filename"); while() { push @blah, (split /\|/); ## do something with the @blah } close (FILE); }