#!/usr/bin/perl -w

$level = 1;
$prod = (20 * $level) * (1.1 ** $level);

print "What is the amount of energy you\'re trying to accumulate? ";
chomp ( $goal = <STDIN> );

while ($prod <= $goal) {
  # print "$level\n"; # DEBUG: print the current level
  $level++;
}

print "\nRequired level for $goal energy from a solar planet is $level\n";