my %elements = map { $_ => 1 } @array;

foreach my $element (@array) {
    foreach my $tranformation (keys %transformations) {
        my $transformed_element = $transformations{$tranformation}->($element);
        if (exists $elements{$transformed_element}) {
            print "Found a $tranformation of $element";
        }
    }
}