#!/usr/local/bin/perl

for ($count = 1; $count <= 9; $count += 3) {
        $num1 = 2 ** $count;
        $num2 = 2 ** ($count + 1);
        $num3 = 2 ** ($count + 2);
        write;
}
$num1 = 2 ** 10;
$num2 = $num3 = "";
write;

format STDOUT =
^>>> ^>>> ^>>>
$num1 $num2 $num3
.
