#! /usr/bin/perl -w
# Open our datafile
open(INPUT, '< graduate.output.txt')
   or die "Couldn't open the file for reading\n";
# Declare main array
@MainArray = ();
# build a data structure
@url_info = <[INPUT]>;
while(1){
   print "Pick a number: ";
   $index = <STDIN>;
   if($index eq 'Q'){
      last;
   }
   print "Link: $url_info[$index][0]\n";
}