use strict;
use warnings;
use Perl::Version;
use Module::CoreList;
use CPAN::Perl::Releases;

foreach my $ver ( keys %{ $CPAN::Perl::Releases::data } ) {
  next if $ver =~ /(RC|TRIAL)/;
  my $pv = Perl::Version->new( $ver );
  my $num = $pv->numify;
  $num =~ s/_//g;
  if ( exists $Module::CoreList::released{ 0+$num } ) {
    print "$ver: ", $Module::CoreList::released{ 0+$num }, "\n";
  }
  else {
    warn "SHIT NOTHING FOR '$ver', '$num'\n";
  }
}