Problem 34

#!/usr/bin/perl
 
use strict;
use warnings;
 
my $i = 10;
my $total = 0;
while($i <= 40585){
        my $sum = 0;
        my @digits = ($i =~ m/(\d)/g);
        foreach my $digit (@digits){
                my $temp = 1;
                my @fact = (2..$digit);
                map $temp *= $_ ,@fact;
                $sum += $temp
        }
        $total += $i if ($sum == $i);
        $i++;
}
 
print "$total\n";