#!/usr/bin/perl

use Modern::Perl;
use strict;

system 'clear';

my@array;
my $counter=0;
my $total=0;

open FILE,'testFile.txt';

while (<FILE>) {
    chomp;
    $array[$counter]=$_;
    $total +=$_;
    $counter++
}
close (FILE);


foreach my $scalar(@array)
{
$total+=scalar;
}

printf("\nThe total of the numbers in testfile.txt is %d.\n\n",$total);

my($add,$sub,$div,$mul,$mod)=0;
$add=$array[0] +$array[1];
$sub=$array[0] -$array[3];
$div=$array[5]/$array[1];
$mul=$array[0]*$array[1]*$array[2]*$array[3]*$array[5]*$array[4];
$mod=$array[4]%$array[2];

print "ADD:$add\n";
print "SUB:$sub\n";
print "DIV:$div\n";
print "MUL:$mul\n";
print "MOD:$mod\n";

print ("The answer to 3%5+\(12/4\)-10/5*-3 is".(($array[0] %$array[1]) +($array[2]/$array[4])-$array[5]/$array[1]*($array[3]))."\n");

open FILE2,'output.txt';

print FILE2 "ADD:$add\n";
print FILE2 "SUB:$sub\n";
print FILE2 "DIV:$div\n";
print FILE2 "MUL:$mul\n";
print FILE2 "MOD:$mod\n";

print FILE2 ("The answer to 3%5+\(12/4\)-10/5*-3 is".(($array[0]%$array[1]) + ($array[2]/$array[4])-$array[5]/$array[1]*($array[3]))."\n");

close (FILE2);

print"\nThe Program has terminated. data has been saved to output.txt\n\n";
~