my @assignList = qw(camshaft gearbox drivetrain smokestack junkyard);
@{$big_foo_bucket}[@assignList]=@other_foo_bucket[@assignList];