Well, in that case...

my (%edge, @seen);

while (<STDIN>) {
    $seen[$2]++ or push @{$edge{$1}}, $2 if /(\d+)\D+(\d+)/;
    # push @{$edge{$1}}, $2 if /(\d+)\D+(\d+)/ and not $seen[$2]++;
}
[download]

— Arien

Edit: added the commented alternative.