# Perl Data Analytics Tutorial

## Let's find the minimum value

I will explain how to find the minimum value using a Perl program.

Let's find the minimum value of the

### array.

Consider an array that contains only positive numbers from 1 to 10, such as:

```my @array = (8, 1, 3, 5, 7);
```

#### Sample program to find the minimum value of an array

Actually find the minimum value from the array. The List::Util module has a min function, which is not used in this example.

You can find the minimum value by preparing a variable to store the minimum value and comparing it with the elements of the array one by one.

* Since the initial value of the variable that saves the minimum value is set to be compared with the numerical value from 1 to 10 in advance, 99, which is sufficiently large, is set as the initial value.

If you don't know the range of numbers to compare, you need to devise a comparison.

```use strict;
use warnings;

my @array = (8, 1, 3, 5, 7);

my \$min = 99;

for my \$num (@array) {
if (\$min > \$num) {
\$min = \$num;
}
}

print "\$min\n";
```

Execution result

```1
```

I think that the process is very easy to understand by comparing each one.

* To simplify the code, we will handle an array that contains only positive numbers from 1 to 10.

### Let's find the minimum value of a specific column from the tabular data.

Consider the following data that was also used to find the maximum value.

name age
bob 9
tom 14
alice 11

It is as follows when expressed by the reference of the array and the hash.

```\$array_ref = [
{name =>'bob', age => 9},
{name =>'tom', age => 14},
{name =>'alice', age => 11}
];;
```

#### Sample program to find the minimum value of the age column

Data access has become a little more difficult due to the complexity of the referenced data,

The method of checking is the same as before.

```use strict;
use warnings;

my \$array_ref = [
{name => 'bob', age => 9},
{name => 'tom', age => 14},
{name => 'alice',age => 11}
];

my \$min = 99;

for my \$info (@{\$array_ref}) {
if (\$min > \$info->{'age'}) {
\$min = \$info->{'age'};
}
}

print "\$min\n";
```

Execution result

```9
```

The process is the same as before except that the reference is dealt with.

You can copy and paste this program and try it immediately at PerlBanjo.