# prints out all the numbers from 1 to 100, along with any
# numbers they're evenly divisible by

for ( my $i = 1; $i <= 100; $i++ )
{
    print "$i: ";
    for ( my $j = 1; $j <= $i; $j++ )
    {
        if ( $i % $j == 0 )
        {
            print "$j ";
        }
    }
    print "\n";
}
[download]