opendir(DIR, "$dirstr") || die ("[error] proc [...]");
  rewinddir (DIR);
  @piclist = grep(!/^\.\.?$/ && /.jpg$/, readdir (DIR));
  closedir (DIR);
    
  $index = grep $piclist[$_] eq $pic, 0 .. $#piclist;

  print "$index\n";
  print "$piclist[$index] equals $pic\n";