Select Code to Download

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

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

while (<>) {
    chomp;

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

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

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

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