Select Code to Download

use strict;
use warnings;
...
    my @pair = splice @titles, 0, 2;
    print "$pair[0]: $pair[1]\n";
}

1: www.perlmonks.org
2: somewhere else