Select Code to Download

[Athlon 4000+]
price=300 euro
...
price=200 euro
produce=Intel
description=Slower

%hash(
"item"=>"Athlon 4000+",
...
"produce"="AMD"
"description="Fast");
etc...

#!/usr/bin/perl
use warnings;
...
        push @descriptions, $1;
    }
}

my %hash = (
    "art"          => ( shift @art ),
...
    "price"        => ( shift @prices ),
    "descriptions" => ( shift @descriptions) 
);