use strict;
use warnings;
use Data::Dumper;

my %metals;
$metals{'LB'}{'LENGTH_RANGES'} = [ 0, 10 ];
$metals{'LB'}{'WIDTH_RANGES'} = [ 0, 1.080 ];
$metals{'LB'}{'EM_POLY'} = "(-0.665364 + (9.6216 * W))*(10/L)";

print Dumper \%metals;