opendir(DIR,"/path") || die("No opendir on $path\n");
my @files = grep { /^${id}\_.*$/ } readdir DIR;
closedir(DIR);

my $filename = "/path/$files[0]";
unlink("$filename") || die("No unlink on $filename\n");