sub f{
#2345678901234567890123456789012345678901
(my$i=shift)=~y/_/./;grep/^$i$/i,@{$_[0]}
}