# 39 chars
sub f {
  #23456789_123456789_
  my($p,$d)=@_;$p=~tr
  /_/./;grep/^$p$/,@$d
}