#!/usr/local/bin/perl
use strict;
use warnings;

#my %fruit = (red => "apple", yellow => "banana");

print "test\n";
print $fruit{red};
print "\n";
if($fruit{red} eq "") {
  print "A\n"
} else {
  print "B\n"
}