Perl URL path counter

counter.pl

#!/usr/bin/env perl

use v5.10; use strict; use warnings; 

my %counts;
for my $line (<>) {
  my $path = (split /\?/, (split / /, $line)[2])[0];
  $counts{$path}++
}

while (my ($path, $count) = each %counts) {
  say "$count $path"
}
  

counter_optimised.pl

#!/usr/bin/env perl

use v5.10; use strict; use warnings; 

my %counts;
for my $line (<>) {
  # short circuit where possible
  my $path = (split /\?/, (split / /, $line, 4)[2], 2)[0];
  $counts{$path}++
}

while (my ($path, $count) = each %counts) {
  say "$count $path"
}