Select Code to Download

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

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

#!/usr/local/bin/perl -w
{
...

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

$VAR1 = bless( [
                 {
...
               ], 'Record' );
His name is Bob Smith
His name is Bob Smith