#!/usr/bin/perl -w
use strict;

use Data::Dumper;

my @keys   = qw( fn ln age ); 
my @values = qw( Joe McCarty 89 );

my %hash;
@hash{@keys} = @values;

print Dumper \%hash;