#!/usr/bin/env perl

# You are given a list of passenger details in the form “9999999999A1122”, where
# 9 denotes the phone number, A the sex, 1 the age and 2 the seat number.
# 
# Write a script to return the count of all senior citizens (age >= 60).
#
# Example 1
# 
# Input: @list = ("7868190130M7522","5303914400F9211","9273338290F4010") Ouput: 2
# 
# The age of the passengers in the given list are 75, 92 and 40.  So we have only
# 2 senior citizens.
# 
# Example 2
# 
# Input: @list = ("1313579440F2036","2921522980M5644") Ouput: 0
#

use strict;
use warnings;
use Test::More;
use Data::Dumper;

my $cases = [
    ["7868190130M7522", "5303914400F9211", "9273338290F4010"],
    ["1313579440F2036", "2921522980M5644"],
];

sub senior_citizens
{
    my $citizens = shift;

    my $cnt = 0;
    for my $c (@$citizens) {
        my ($age) = $c =~ m/^\d+[FM](\d{2})\d{2}$/;
        ++$cnt if $age >= 60;
    }

    return $cnt;
}

is(senior_citizens($cases->[0]), 2, '["7868190130M7522", "5303914400F9211", "9273338290F4010"]');
is(senior_citizens($cases->[1]), 0, '["1313579440F2036", "2921522980M5644"]');
done_testing();

exit 0;