Project Euler 30

PE30.pl

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use List::Util qw/sum/;

# (9^5) + (9^5) + (9^5) + (9^5) + (9^5) + (9^5) = 354294
my @res = grep{ my $t = $_; $t == sum map{$_ ** 5} split(//,$t) } 2..354294;
print sum @res;
# => 443839