Select Code to Download

%hash = (
           op1 => 'Desc1 - Num1',
           op3 => 'Desc3 - Num1',
           ...
        );

use strict;

...
    my ($desc, $num) = split(/ ?- ?/, $data{$_});
    $result{$_} = {Desc => $desc, Num => $num};
}