my(%sortListArr);
$sortListArr{'1'} = 'A1';
$sortListArr{'2'} = 'A2';
$sortListArr{'3'} = 'A3';
$sortListArr{'4'} = 'A4';
$sortListArr{'5'} = 'A5';
$sortListArr{'6'} = 'A6';

##</code><code>##

foreach $key (keys %sortListArr){
print $sortListArr{$key},"\n";
}

##</code><code>##

$sortListArr{'7'} = 'A7';

##</code><code>##

$sortListArr{'0'} = 'A1';
$sortListArr{'1'} = 'A2';
$sortListArr{'2'} = 'A3';
$sortListArr{'3'} = 'A4';
$sortListArr{'4'} = 'A5';
$sortListArr{'5'} = 'A6';
$sortListArr{'6'} = 'A7';