Enter Quantum::Superpositions

use Quantum::Superpositions;

my $a = my $b = my $c = 5;

if ( all( $a, $b, $c) == 5) {
    print "They are all 5\n";
} else {
    print "They are not the same\n";
}
[download]

Or more generally

use Quantum::Superpositions;

my $a = my $b = my $c = 5;

if ( all($a, $b, $c) == all( $a, $b, $c) ) {
    print "They are the same\n";
} else {
    print "They are not the same\n";
}
[download]

Update: The second idiom is better written as:

if ( all($a, $b, $c) ) {
    print "They are the same\n";
} else {
    print "They are not the same\n";
}
[download]