sub f{
#234567890123456789012345678901234567890123456789012345
my$a=shift;(my$b=$a)=~s/_/[^$a]/gi;grep/^$b$/i,@{$_[0]}
}