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";


##</code><code>##

  my ($c);
  foreach $c (0 .. $#piclist) {
    print "$c - $piclist[$c] equals $pic\n" if ($piclist[$c] eq $pic);
  }