Help for this page
c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le "my @stuff = qw( ... dd \@out; " ["A:Severe", "B:Severe"]