for(@exes){
    $tot += ($_-$ave)**2;
}