汎用性考えたらこっちだろ？（区切り文字はその時々だけど）

my %virtues = map { chomp; split /,/, } <DATA>;
print "$virtues{ONE}＼n";
print "$virtues{TWO}＼n";
print "$virtues{THREE}＼n";
__DATA__
ONE,Laziness,TWO,Impatience
THREE
Hubris