use Math::Prime::Util::GMP qw/sigma/;
print grep( { sigma($_)>2*$_ } 12 .. 28123 )."\n";
__END__
6965