#!/usr/bin/perl

#
# eg1: play around with empty strings and undef
#
@pairs = ( 0,       "zero",
           '',      "emptystr",
           undef,   "undef",
           1,       "one",
           17.3,    "17.3",
           'hello', "hello" );
# foreach (testval,label) in @pairs
while( ($testval,$label,@pairs) = @pairs )
{
        $boolstr = $testval ? "true" : "false";
        print "$label: <$testval>, $boolstr\n";
}
