Select Code to Download

my(%sortListArr);
$sortListArr{'1'} = 'A1';
...
$sortListArr{'4'} = 'A4';
$sortListArr{'5'} = 'A5';
$sortListArr{'6'} = 'A6';

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

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

$sortListArr{'0'} = 'A1';
$sortListArr{'1'} = 'A2';
...
$sortListArr{'4'} = 'A5';
$sortListArr{'5'} = 'A6';
$sortListArr{'6'} = 'A7';