The volume of a sphere... 

# Volume of sphere is (4 * pi * radius^3)/3
my $volume = (4 * PI * $qr^3)/3;