$s="1 x 2 y";
@a = $s;
%h = @a;

print "\$s: $s\n";
print "\@a: @a\n";
print "\%h: %h\n";

print "\%h: ", %h, "\n";

##</code><code>##

$s: 1 x 2 y
@a: 1 x 2 y
%h: %h
%h: 1 x 2 y