%p=map{chomp;split/\|/;shift,[@_]}@_