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