#! /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";
		}
	}
}