@rec{@columns} = split ('\|', $row);