Select Code to Download

# I have
my ($fn, $ln, $age) = qw(Joe McCarty 89);

# I want
my %crazyperson = ( 'fn' => 'Joe', 'ln' => 'McCarty', 'age => 89);

my %crazyperson;
@crazyperson{'fn', 'Joe', 'ln'} = qw/Joe McCarty 89/;

$name = "Ted";
while ( my $line = <DATA> ) {
...
name,Frank
__OUTPUT__
Frank