#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper 'Dumper';
use CGI;

my $q = CGI->new();

my $var = { first  => $q->param('first'),
            second => $q->param('second'),
          };

print Dumper($var);

##</code><code>##

$VAR1 = {
          'first'  => undef,
          'second' => undef,
        };

##</code><code>##

$VAR1 = {
          'first' => 'second'
        };

##</code><code>##

    return unless defined($name) && $self->{$name};

##</code><code>##

    return undef unless defined($name) && $self->{$name};