#/usr/bin/perl
$parents = 'father+mother';
$children = "loved kids";
@divorce = split(/\+/, $parents) ;
$stateofmind{$divorce[0]} = "sad";
$stateofmind{$divorce[1]} = "desparated";
$stateofmind{$children} = "horrified";