for ( 0..64 ) {
    $var = 2**$_;
    print "Perl can do 2**$_ : $var\n";
}