my %ipURL;
csv (
    in       => *DATA,
    out      => undef,
    fragment => "col=7;31",
    on_in    => sub { $ipURL{$_[1][0]}{$_[1][1]}++ },
    );

DDumper \%ipURL;