use strict; use warnings; my @x = ([2,8,3],[5,1,6],[9,7,4]); my $min_vec3 = (sort {$a <=> $b} @{$x[2]}[0..2])[0]; print "Kleinster Wert im dritten Vektor: $min_vec3\n";