#!/usr/bin/perl -w
use strict;

my %hash;
print defined( %hash )?"yea":"nay","\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;

my %hash;
print ( %hash )?"yea":"nay","\n";

##</code><code>##

sub all-between {
   my ($min, $max ) = @_;
   if ( $min > $max ) return;
   my @array = ();
   my $i = $min + 1; 
   while ($i < $max) {
      push @array, $i++;
   }
   return @array;
}


my @ar1 = all-between( 4, 10 ); # Gives (5,6,7,8,9)
my @ar2 = all-between( 4, 5 ); # Gives ()
my @ar3 = all-between( 4, 3 ); # Gives undef

  if ( my @ar = all-between( $arg1, $arg2 ) ) {
# as opposed to:
# if ( defined( my @ar = all-between( $arg1, $arg2 ) ) ) {
   print "Your allbetween are " , join( ',', @ar ), "\n";
}