So long as you can be sure there's always pairs of lines, there's no need to be that verbose and longwinded.

#!/usr/bin/perl -wl
use strict;

my %bookmark;

while (<>) {
    my $name = <>;
    $url{$name} = $_;
}

for (sort keys %bookmark) {
    print $bookmark{$_};
    print $_;
}
[download]

Makeshifts last the longest.