my %database;

my $employee_id = 961;
my $employee_name = "Anonymous Monk";
my $employee_salary = "fun";
my $employee_ph = 5.5;
my @employee_details = ($employee_name,$employee_salary,$employee_ph);
$database{$employee_id} = \@employee_details;

print "$database{961}[0]: $database{961}[1]\n";

__END__
Anonymous Monk: fun