Select Code to Download

use warnings;
use strict;
...
DOZ | ZZZZZ| 5.05| 2800| Telecom
DX | DX Co.| 77.2| 12000| Industrials
DXX | DXX Co.| 50.25| 9000| Utilities

$VAR1 = {
          'AB' => {
...
                     'price' => '50.25'
                   }
        };