Select Code to Download

#!/usr/bin/perl -w
use strict;
...
15|15
50|50
15|150

$VAR1 = {
          '10' => [
...
                     '50'
           ]
        };