#!/usr/bin/perl
$a = "a";
$b = "b";
$c = "c";
$d = "d";
$e = "e";

if (($a, $b, $c, $d, $e) eq ("ea", "eb", "ce", "de", "e")) {
	print "success";
}
else {
	print "failure";
}