#!/usr/local/bin/perl

for ($val = 1; $val <= 100; $val++) {
        print ("log of $val is ", log($val), "\n");
}
