Re: Cube/digit script.

[Yzzyx]

#!/usr/bin/perl
use warnings;

for my $a ( 1 .. 9 ) {
    for my $b ( 0 .. 9 ) {
        for my $c ( 0 .. 9 ) {
            my $num = $a.$b.$c;
            my $sum = ( $a ** 3 ) + ( $b ** 3 ) + ( $c ** 3 );
            print "$num\n" if $num == $sum;
        }
    }
}

[ptum]

A minor quibble: I would avoid using $a and $b in this context, since they are global sort variables -- it has the potential to confuse a casual reader of your code. How 'bout $c, $d and $e instead? :)