#!/usr/bin/perl

$a = "hi";
$b = "hello";

$equal = $a eq $b;
print "$a eq $b = $equal\n";

$equal = $a eq $a;
print "$a eq $a = $equal\n";

$equal = $a ne $b;
print "$a ne $b = $equal\n";

$compare = $a cmp $b;
print "$a cmp $b = $compare\n";

$compare = $b cmp $a;
print "$b cmp $a = $compare\n";