#!/usr/bin/perl -w

use strict;

@$ = ( 1, 2, 3);

%$ = ( 1 => 'a', 2 => 'b' );

print map { "% : $_ => ${%$}{$_}\n" } sort keys (%$);
print map { "@ : $_\n" } (@$);