fork download
  1. use strict;
  2. use warnings;
  3.  
  4. my %hash = ('a' => 'b', 'c' => 'd');
  5.  
  6. print("a is defined") if (defined $hash{'a'});
  7. print("x is defined") if (defined $hash{'x'});
  8. print("b is defined") if (defined $hash{'b'});
  9.  
  10.  
Success #stdin #stdout 0s 3740KB
stdin
Standard input is empty
stdout
a is defined