Project Euler 32

PE32.pl

#!/usr/bin/perl

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

my %S = ();
for(my $i=1000; $i<=9999; $i++){
    for(my $j=1; $j*$j<=$i; $j++){
	if( $i % $j == 0 ){
	    my $k = $i / $j;
	    my %h;
	    @h{(split(//,$i),split(//,$j),split(//,$k))} = ();
	    if( !exists($h{0}) && scalar(keys %h) == 9 ){
		$S{$i} = 1;
	    }
	}
    }
}

print sum(keys %S),"\n";
# => 45228