Help for this page
use warnings; use strict; ... bar,x quz,5 a,b,c,42
while (<DATA>) { chomp; ... { $hash{$1} = looks_like_number($2) ? $2 : 1 } else { $hash{$_} = 1 } }
www.com | www.net | www.org
No recent polls found