Instead of your if ($number > $#lines | $number <=0) section, you could try something like this:

if (defined $lines[$number1 - 1]) {
    print $lines[$number1 - 1];
    print "\n";
} else {
    print "No link at that index\n";
}
[download]

This will check if there's a value at the spot in the array. This will benefit you if, in the future, you expand your code to delete links, or if you accidentally have blank lines in your input file.

As always, TMTOWTDI.