Select Code to Download

#!/usr/bin/perl --

use strict;
...
1121 Another Item
11212 And Another Item
12 Sub Item 2

my %result = ();

foreach my $line (<DATA>) {
...
    }
    $temp->{''} = [$index, $value];
}