...
    my ($filename)=glob("$path*$_*.pkl");
    if (defined($filename))
...