#!/usr/bin/perl
#
# Calculate volume of a sphere 
#

# Subroutine to calculate volume V = (4/3)*pi*r^3
sub volume {
    my $radius = shift;
    my $pi = 4 * atan2(1,1);
    my $volume = (4.0 / 3.0) * $pi * $radius**3;
    return $volume;
}

print "Radius   Volume\n";
for ($i=1;$i<=5;$i++) {
    printf "%6.3f %8.3f\n", $i, volume($i);
}