my %hash;

foreach my $type qw( Lumber Clay Iron Crop )
{
    if( $mech->content() =~ m#$type:</td><td align="right"><b>(\d+)#i )
    {
        $hash{$type} = $1; # lc( $type ), etc if desired
    }
    else
    {
        # I dunno - what should happen if the match fails?
    }
}