Simple Planet Clone in Perl