#!/usr/bin/perl use strict; use warnings; use Comp; use Data::Dumper; our( $i, $j, $k ); my @tripel = comp sub{ $i**2 == $j**2 + $k**2 ? [$k, $j, $i] : () }, 'i' => sub{ 1..10 }, 'j' => sub{ 1..$i }, 'k' => sub{ 1..$j }; print Dumper( \@tripel ), "\n";