Select Code to Download

use Data::Dumper;
use strict;
...
t-98: 12;3;56;24
t-56: 1;98
t-3 : 12;56

$VAR1 = {
          't-98' => [
...
                    ]
        };