my $average = 3;
my $i = 0;
while ($i >= 0 and $i <= $average) {
  print qq~<img src=".... /> ~;
  $i++
}