#! /usr/bin/perl -w
use strict;

my %slice;
@slice{ qw/alpha bravo/ } = ( 'foo', 'bar' );

my %assign;
$assign{alpha} = 'foo';
$assign{bravo} = 'bar';