Select Code to Download

#!/usr/bin/perl
use warnings;
...
red           shoes            20
yellow        shoes            1
yellow        skates           1000

C:\Code>perl multi_hash_sort.pl
red             bike                5
...
red             bike                5
red             car                 4
yellow          shoes               1