$foo = "Foo"; @bar = qw/B a r/; %blah = ( b => 'l', a => 'h' );