#!/usr/local/bin/perl
use test;

##</code><code>##

@A = ();
%B = ();
sub