Help for this page

Select Code to Download


  1. or download this
    my @input = qw(0:6
    0:12
    0:18
    ...
        my ($key, $value) = split /:/;
        push @{$link{$key}}, $value;
    }
    
  2. or download this
    $VAR1 = {
              '6' => [
                       '12',
    ...
                        '24'
                      ]
            };