Minimum numbers of three lists: Difference between revisions

=={{header|Perl}}==

<lang perl>use strict;

use warnings;

use List::Util 'min';

my @lists = ([5,45,23,21,67], [43,22,78,46,38], [9,98,12,98,53]);

for my $i (0 .. $#{ $lists[0] }) {

print ' ' . min map { $lists[$_][$i] } 0..$#lists;

}</lang>

{{out}}

<pre> 5 22 12 21 38</pre>