Select Code to Download

#!/usr/bin/perl -w
use strict;
...
__END__
Prints:
$VAR1 = {};

if ( $a{'abd'} and $a{'abd'}->[0])
   { print "yes\n"}