#!/usr/local/bin/perl

$value = 1;
$counter = 0;
while ($counter < 16) {
        print ("2 to the power $counter is $value\n");
        $value = $value << 1;
        $counter++;
}
