my $thumbgif = "thumb.gif"; # no need to redeclare this every time.
my $menudir;
foreach my $ref (sort {(-1, 0, 1)[rand 3]} @records)
{
      $menudir = $ref->{dir};
      my $thumb = "$webdir/$menudir/$thumbgif";
      print qq{<img align="center" border="0" src="$thumb">};
}