Select Code to Download

my $infile = $ARGV[0];
open (IFILE, "<", $infile) || die "Cannot open : $!\n";
...
}
close IFILE;
my $count = @data;

my $variance;
my $var;
...
            $variance = $var*(($data[$index]-$Average)**2);
}
print "$variance\n";