my @list = ('chk1|name1|cost1|number1|txt1',
            'chk2|name2|cost2|number2|txt2',
            'chk3|name3|cost3|number3|txt3');

print table(Tr([map { td([split /\|/, $_])."\n" } @list ]));