Select Code to Download

use strict;
use warnings;
use 5.12.00;
...

# Our custom hashing function for inventory items. Expects %rec argume
+nt
sub key { my %rec = @_; $rec{Shape} . $rec{Color} . $rec{Size}; }