foreach my $file ( sort keys %INC ) {
   my $mod = "$file";
   next unless $mod =~ s/[.]pm$//;
   $mod =~ s{/}{::}g;
   my $ver = eval('$' . $mod . '::VERSION or "[unknown]"');
   push @output, [ $mod, $ver ];
}
...