Привет! А кто умеет упростить вот это, применив всякие map/grep? my @inc = (0, 10, 20, 35, 55); my @uni; for (my $c = 1; $c != scalar @inc; $c++) { push @uni, $inc[$c] - $inc[$c - 1]; } say Dumper \@uni; -- Andrew Shitov ______________________________________________________________________ andy на shitov.ru | http://shitov.ru