#!perl -w

use strict;

my @foo;
my @bar;

@{foo} = 1;
@{"bar"} = 1;