alexa.pl

use strictures;

use 5.012;

use WWW::Alexa::TrafficRank;
use Tie::Array::CSV;

run();

sub run {
    tie my @file, 'Tie::Array::CSV', 'urls.csv';
    my $tr = WWW::Alexa::TrafficRank->new;

    for my $line ( @file ) {
        say state $c++ . " / " . ~~ @file;
        my $url  = $line->[0];
        my $rank = $tr->get( $url );
        $rank =~ s/,//g;
        $line->[1] = $rank;
    }
}