# Euler problem 52
use strict;
my $x = 1;
my $i;
my $str;
my $finished = 0;
while ($finished == 0)
{
    $str = join('',sort(split("","$x")));
    if ($str == join('',sort(split('',2*$x.""))) &&
        $str == join('',sort(split('',3*$x.""))) &&
        $str == join('',sort(split('',4*$x.""))) &&
        $str == join('',sort(split('',5*$x.""))) &&
        $str == join('',sort(split('',6*$x.""))))
    {
        for ($i = 1;$i <= 6;$i++)
        {
            print $i . "x = " . $i*$x . "\n";
        }
        $finished = 1;
    }
    $x++;
}