open (FILE, 'pout.txt') || die "Could not open output:\n $!\n";
$i = 0;
while (<FILE>){
	chomp($_);
	($key, $prime) =split (/ /, $_);
	push (@prime, $prime);
}	
$nop = @prime;
print "$nop primes found.\n";
$i = 0;
until ( $i == 1) {
	print "Enter First Key\: ";
	$key1 = <STDIN>;
	chomp ($key1);
	print "Enter Second Key\: ";
	$key2 = <STDIN>;
	chomp ($key2);
	$total = (@prime[$key1] * @prime[$key2]);
	print "@prime[$key1] times @prime[$key2] is $total\n";
}