#!/usr/bin/perl
use warnings;
use strict;

our (%sender, %receiver, @p_s};

##</code><code>##

while (<>) {
    chomp;

##</code><code>##

    if (m/(\d-\d)->(\d-\d)/) {
        $sender{$1} = $2;
        $receiver{$2} = $1;

##</code><code>##

        warn "enter ",
            "$sender{$1}->$receiver{$2} ",
            "in dependency hashes\n";
    }

##</code><code>##

    elsif (m/((\d)-\d)/) {


##</code><code>##

        unshift @{$p_s[$2]}, $1;
        warn "unshift $1 onto process array\n";

##</code><code>##

    }
    else {
        warn "unmatched line: $_\n";
    }
}
# . . .