{
        local $, = "|";
        print @record[1..$fields];
    }