print '<span class=graph>';
print "<label>$_</label>" for $keys->{key}{$mode} =~ s/\s.*//r || ();
for my $g (sort keys %inventory) {
print '<span class=graph>';
print "<label>$_</label>" for $keys->{key}{$mode} =~ s/\s.*//r || ();
for my $g (sort keys %inventory) {