#!/usr/bin/perl

use 5.040.2;

sub significatives {
    my @list = @_;
    my @difsign;
    my $n = 3;   # número de significativos
    for my $i (1 .. scalar(@list)-1){	
	next if ( nonnum($list[$i]) || nonmun($list[$i-1]) );
	$difsign[$i-1] = $list[$i] - $list[$i-1];
    }
    return 0 unless (scalar(@difsign));
    
    @difsign = sort { abs($b) <=> abs($a) } @difsign;
    my @r;
    for (0 .. $n-1){
	$r[$_] = $dif[$_];
	my $msg = ($r[$_] == 0) ? " nula diferencia " : " diferencia ";
	if ($r[$_] != 0){
	    $msg .= ($r[$_] > 0) ? " positiva " : " negativa ";
	}
	say "$_) diff $r[$_] $msg";
    }    
    return @r;
}

sub nonnum {
    my $n = shift;
    return 1 if ( $n =~ /\D/ && $n =/[\+|\-|\.|\e|\g]/ ); 
    return 0;
}