print "His name is $hash[firstname] $hash[lastname]\n;

##</code><code>##

print "His name is $hash{firstname} $hash{lastname}\n;

##</code><code>##

#!/usr/local/bin/perl -w
{
	package Record;
	use fields qw(firstname lastname address town zip);
    sub new {
    	my $this = shift->fields::new;
        %$this = @_;
        return $this;
    }

}

my Record $data = new Record( firstname => 'Bob',
           lastname  => 'Smith',
           address   => '1234 Main St',
           town      => 'AnyTown',
           zip       => 20500);

use Data::Dumper;
print Dumper $data;

print "His name is $data->{firstname} $data->{lastname}\n";
print "His name is $data->[1] $data->[2]\n";

##</code><code>##

$VAR1 = bless( [
                 {
                   'firstname' => 1,
                   'zip' => 5,
                   'town' => 4,
                   'address' => 3,
                   'lastname' => 2
                 },
                 'Bob',
                 'Smith',
                 '1234 Main St',
                 'AnyTown',
                 20500
               ], 'Record' );
His name is Bob Smith
His name is Bob Smith