[perflab69 ~] $ perl -e '$foo = {}; $line = "other,thing"; ($foo->{"this"}, $foo->{"that"}) = split(/,/, $line); print "This: $foo->{this}\nThat: $foo->{that}\n"'
This: other
That: thing