open (DATA, "data.dat")
@data = <DATA>;
close (DATA);

foreach $item (@data)
{
    @elements = split (/\|/, $item);
    # do your comparisons to each item in @elements here
}