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