use v5.14;
use Switcheroo;

my @genres = ('War', 'Death');

my $genre = switch ($genres[0]) do {
	case "Science Fiction", "Sci-Fi", "Fantasy": "Sci-Fi & Fantasy";
	case "Action", "Adventure", "War":           "Action & Adventure";
	case "Kids", "Family":                       "Kids & Family";
	default:                                     $_;
};

say $genre;  # Action & Adventure