# update values with this weeks results and scores
for (my $j = 0; $j <= $#teams; $j++) {
	print "\nDo You have results for $teams[$j] (y\\n)?\n";
	$answer=<STDIN>;
	chomp($answer);
		if ($answer =~ /[Yy](es)*/) {
			$team_number = $j*5;
			$Values[$team_number]=$teams[$j];
				print "$j\t\t$Values[$team_number]\n";

			print "\nHome Result ((W D or L) _ if its an away game):\n";
				$home_result=<STDIN>;
				chomp($home_result);
				$home_result=~s/\s+$//g;
					$Values[$team_number+1]=~s/($Values[$team_number+1])/$1$home_result/g;
			exit 1;
}

# update storage file
	open(SNMPFILE,"+< store.txt");
	for ($ae = 0; $ae <= $#Values; $ae++) {
		print SNMPFILE "$Values[$ae] ";
	}
	close(SNMPFILE);