sub perm { 
    my ($target,$agent) = @_; 
    my @targ = split //,$target;
    my @perm = split //,$agent; 
    my $res;
    for (my $i = 0; $i < (@perm); $i++){ $res .= $perm[$targ[$i]] }
    return $res;
}