open(INPUT, '< graduate.output.txt')
     or die "Couldn't open the file for reading: $!";

while(<INPUT>) {
  chomp;
  my $@a = split /,/;
  push(@url_info, \@a);
}

close(INPUT);