#!perl
@fruits = qw( apple orange banana );
foreach $item ( @fruits )
{
if ( $item eq "banana" )
{
print "String '$item' matches string 'banana'\n";
}
if ( $item ne "banana" )
{
print "String '$item' does not match string 'banana'\n";
}
if ( $item lt "banana" )
{
print "String '$item' is less than string 'banana'\n";
}
if ( $item gt "banana" )
{
print "String '$item' is greater than string 'banana'\n";
}
}