use strict;
use warnings;
use IPC::Run3;
use Regexp::Compare qw( is_less_or_equal );

my @re = (
  qr/asdf/,
  qr/asd/,
  qr/as/,
  qr/a/,
  qr/./,
  qr/.*/,
);

my $stdin  = '';
my $stdout = '';
my $stderr = '';
for my $i ( 0 .. $#re ) {
  for my $j ( 0 .. $#re ) {
    $stdin .= "$i $j\n" if is_less_or_equal( $re[$i], $re[$j] );
  }
}

# tsort (GNU coreutils) 8.4
run3 [ 'tsort' ], \$stdin, \$stdout, \$stderr;
print $stderr;

my @idx = split /\s+/, $stdout;
print "$_\n" for @re[@idx];