#!/usr/local/bin/perl -l

my @a = (1, 2, 3);
my @b = (1, 2, 4);
my @c = ( "equal", "a > b", "b > a" );

print ($c[@a<=>@b]);
print ($c[@b<=>@a]);
print ($c[(1, 2, 3)<=>(1, 2, 4)]);
print ($c[(1, 2, 4)<=>(1, 2, 3)]);