for my $i (0 .. $#student) {
  if (${ $student[$i] } eq 'Al') {
    ...
    }
  ...
  }