Select Code to Download

use strict;
use warnings;

...
my $math=<STDIN>;
...
my $sci=<STDIN>;
...

Bareword "n" not allowed while "strict subs" in use at ...

use strict;
use warnings;
...
}

printf "Your average is: %.2f%%\n", ($sum / scalar(@subjects));