my $peg = 4 + 4 + 4 + 4 ;
my $hole = 2 * 3.14159 * 2.829;
print "I'm in!\n" if $peg < $hole;