Help for this page
# 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
www.com | www.net | www.org
No recent polls found