sub get_line {
      my ($file, $row_num) = @_; 

      my $parser = Parse::CSV->new(
            file => $file,
      );
      
      while ( my $value = $parser->fetch ) {
            if ($parser->row() == $row_num) { 
            return $value;
            }
....