Select Code to Download

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