#!/usr/bin/perl

# http://perlmonks.org/?node_id=1130122

use strict;
use warnings;

my $want = undef;
my @idxArray;

# sort files together :)

open my $fh, '-|', '/usr/bin/sort -n d.master d.index' or die "$! opening sort";

while(<$fh>)
  {
  if( /^(\d+)$/ )
    {
    $want = $1;
    }
  elsif( $want && /^$want\s+(\S+)/ )
    {
    push @idxArray, $1;
    $want = undef;
    }
  else
    {
    $want = undef;
    }
  }
close $fh or die "$! on close of sort";

use YAML; print Dump \@idxArray; # for debugging

__END__