$min [$i] = $max [$i] = $emax [$i] = $len;
($min [$i], $max [$i], $emax [$i]) = ($len) x 3;
{  no strict 'refs';
   for my $name (qw /min max emax/) {$$name [$i] = $len}
}
for my $name (qw /min max emax/) {
    eval "$name [\$i] = \$len;";
}
[download]

Abigail