#!/usr/bin/perl -w

use strict;

my %f = ();
if ("a" eq "a")
{
  my $h = print ( (exists($f{s})) ? $f{s} : "g" );

  if (exists ($f{i}))
  {
    print "d";
  }
print "e";
}