Select Code to Download

while (<FILE>)
{
...
        print "@data\n";
    }
}

my %info;
while (<>)
...
{
    print "$_ ", join(' ', @{$info{$_}}), "\n";
}