Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        print "$key $connect{$key}\n";
    }
}

for my $vertex_pair (sort keys %multiplicity) {
    print "$vertex_pair $multiplicity{$vertex_pair}\n";
}