!perl
my $input = [
{
Model => "Aggressor",
Manufacturer => "Shoe Co.",
Size => "10"
},
{
Model => "LookinGood",
Manufacturer => "Shoe Co.",
Size => "12"
},
{
Model => "PowerStrike",
Manufacturer => "Footware Inc.",
Size => "7"
},
{
Model => "RunFast",
Manufacturer => "Footware Inc.",
Size =>...