#!/usr/bin/perl
use strict;
use warnings;
 
my $file = $ARGV[0] or die "key in your csv file name\n";
 
my $count = 0;
open(my $data, '<', $file) or die "Could not open '$file' $!\n";
 
while (my $line = <$data>) {
  chomp $line;
 
  my @fields = split ";" , $line;
  my $rows = $fields[2];
  $count++;
  }
print "$count\n";