Select Code to Download

#!/usr/bin/perl -w
use strict;
...
ddd|eee|fff
ddd|eee|xxxxx
hhh|iiii|jjjjjj

%first_two = (
               'aaa|bbb' => 'aaa|bbb|ccc',
               'hhh|iiii' => 'hhh|iiii|jjjjjj',
               'ddd|eee' => 'ddd|eee|fff,xxxxx'
             );