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