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