#!/usr/bin/perl

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