#!/usr/bin/perl -w 

use strict;

use warnings;

use List::Util qw(
  reduce any all none notall first
 
  max maxstr min minstr product sum sum0
 
  pairs unpairs pairkeys pairvalues pairfirst pairgrep pairmap
 
  shuffle uniq uniqnum uniqstr
);



my $max; 
my $min;

$min = min 1176380,1176616,1184645,1184803,1171051,1171167,1195392,1195520,1172865,1173026,1191287,1191418;
$max = max 1176380,1176616,1184645,1184803,1171051,1171167,1195392,1195520,1172865,1173026,1191287,1191418;
print "$max es el max\n";
print "$min es el min\n";