#!/usr/bin/env perl

use strict;
use warnings;
use v5.22;
use diagnostics;

if (@ARGV !=1) {
    die "Usage: $0 [input-filename]";
}

my $input_filename = $ARGV[0];
open my $filehandle, '<', $input_filename or
    die "Could not open input file $input_filename: $!";

chomp( my @input = ( <$filehandle> ) );

# Part 1
say scalar( grep { $input[$_] > $input[$_ - 1] } (1 .. $#input) );

# Part 2
say scalar( grep { $input[$_ + 2] > $input[$_ - 1] } (1 .. $#input - 2) );