#! /usr/bin/perl
use warnings;
use strict;
use Algorithm::Permute;
my $string1="acbd = 4213";
my $alp = new Algorithm::Permute(['a'..'d']);
my $num = new Algorithm::Permute(['1'..'4']);
my (@res,@res1,$alp1,$alp2,$fin);

while (@res = $alp->next){
	$alp1=join('',@res);

	while(@res1 = $num->next){
		$alp2 = join('',@res1);
		$fin = join('',$alp1,' = ',$alp2);
		print"$fin\n";
		if($fin eq $string1){
			print"String exists";
		}
	}
}

##</code><code>##

dcba = 4321
dcba = 3421
dcba = 3241
dcba = 3214
dcba = 4231
dcba = 2431
dcba = 2341
dcba = 2314
dcba = 4213
dcba = 2413
dcba = 2143
dcba = 2134
dcba = 4312
dcba = 3412
dcba = 3142
dcba = 3124
dcba = 4132
dcba = 1432
dcba = 1342
dcba = 1324
dcba = 4123
dcba = 1423
dcba = 1243
dcba = 1234