in reply to Refusal to Run

it won't tell me what's wrong
Interestingly, when I tried to run it, it did. 
syntax error at a.pl line 8, near ");"
syntax error at a.pl line 12, near ");"
Global symbol "$n" requires explicit package name at a.pl line 20.
Execution of a.pl aborted due to compilation errors.

[download]
Maybe you should use do {stuff;} until (condition()); rather than {stuff;} until (condition());

Since the OP has updated his code, this post has become futile. For reference, here is the original code: 
use strict;
use warnings;
my ($i, $j, $x, $tot);
my @exes;
print "Please enter for how many values of x you will be
 finding the Standard Deviation.\n";
do {chomp($i=<>); print "\nPlease only use numbers.\n" if $i=~m/\[1-9]
+/;} 
until($i!~m/\[1-9]/);
print "\nPlease input the values of x, one at a time.\n";
for $j(1..$i){
do    {chomp($x=<>); print "\nPlease only use numbers.\n" if $x=~m/\[1
+-9]/;} 
until($x!~m/\[1-9]/);
    push @exes, $x;}
undef $x;
for(@exes){
    $x=$x+$_;}
my $ave=$x/$i;
for(@exes){
    $tot=$tot+(($_-$ave)^2);}
my $deviation=sqrt($tot/$n);
print "\nThe Standard Deviation of that set of numbers is $deviation.\
+n";

[download]

In Section Seekers of Perl Wisdom