sub f {
($a=shift)=~s/_/[^$a]/g;grep/^$a$/i,@{+pop}
#23456789_123456789_123456789_123456789_123
}