Select Code to Download

sub datafilla {
  for my $y (1..5){
...
    $grand[$y] = $grand[$y-1] + ( ($e_diff<0) ? abs ($e_diff) : 0 );
  }
}

#!/usr/bin/perl

...

  return $html;
}