Select Code to Download

my @input = qw(0:6
0:12
0:18
...
    my ($key, $value) = split /:/;
    push @{$link{$key}}, $value;
}

$VAR1 = {
          '6' => [
                   '12',
...
                    '24'
                  ]
        };