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