Select Code to Download

condition1 50.73
condition2 44.34
condition3 52.05
condition4 56.39

use strict;
use warnings;
...
condition2 360.5 318.5 356 316.5 330 296.5 444 474 416.5 355 320 401.5
+ 363.5 332 363 324 388 312 344 372 347.5 338
condition3 372 354 358 311 336.5 297 485 461 407.5 365 342 428 494 343
+.5 372 324 379.5 345 389 384 363 346
condition4 324 305.5 364 320 327.5 288.5 432.5 434 447 369 315 397.5 5
+15 339 405 330 396 319 345 381.5 340 317

use List::Util 'sum';

...
  my $n = @$data;
  return sqrt( ( $sum2 - (( $sum*$sum )/$n) )/($n-1) );
}