sub func {
#23456789_123456789_123456789_12345678
chomp(@_=split'\|',pop);$p{+shift}=\@_
}