my %slice;
  @slice{ qw/alpha   bravo charlie delta/ } =
        (    $omega, $x,   $brown, $plane );