qwurx [shmem] ~ > perl -le '%h=qw(Buffalo buffalo Buffalo buffalo buffalo buffalo Buffalo buffalo);print"$_ => $h{$_}" for keys %h' Buffalo => buffalo buffalo => buffalo