Select Code to Download

use strict;
use warnings;
...
sub MySub {
    return ({1, 1, 2, 2}, {5, 5, 6, 6});
}

$HASH1 = {
           1 => 1,
...
           5 => 5,
           6 => 6
         };