why your loop doesn't exit: note that when you read a line from <STDIN> the input you get will contain the newline; so your eq comparison fails because it tests for exactly 'Q'. Use chomp on the input or add the newline to the string (be sure to use double quotes around the "Q" if you go this way -- but the first method is safer).

The rest will have to wait for <code> tags to be added.

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

Also, if you are splitting on commas, then you need to do that:

 
@lines = <INPUT>;
for ( 0 .. $#lines ) { 
  $url_info[$_] = [ split /,/ , $lines[$_] ];
}
[download]

But maybe I am being incredibly dumb and you know clever perl tricks that I wot not of.

dave hj~

• close your INPUT file.
• chomp your input.
• split the line.
• do some error checking on the input so you don't try to
  access what isn't there.

#!/usr/bin/perl -w

  # Open our datafile
  open(INPUT, '< graduate.output.txt')
     or die "Couldn't open the file for reading\n";

  # build a data structure
  @url_info = <INPUT>;

  close(INPUT);

  while(1){
     print "Pick a number: ";
     chomp($index = <STDIN>);
     next if ($index >= scalar(@url_info));
     if($index =~ /^q/i){
        last;
     }
     @f = split(/,\s*/, $url_info[$index]);
     print "Link: $f[0]\n";
  }
[download]