Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
...
no satisfying condition for index 3
no satisfying condition for index 4
[\11, \22, \3663, \44, \55, \726]

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