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

my %bookmark;

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

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