How about adding a

print "M$End";
[download]

That is:

    for (my $i=$Start; $i <= ($End-1) ; $i++){        
        print "M$i --> V$i-->";
    }
    print "M$End";
[download]

But if I were doing this, I'd probably do it like so:

    for (my $i=$Start; $i <= $End; $i++) {
        print "M$i";
        print " --> V$i-->"   unless $i == $End;
    }
[download]