Select Code to Download

use strict;
use warnings;
...
my %hash = split /[;:]/, $string;

print Dumper \%hash;

$VAR1 = {
    '1' => 'one',
    '3' => 'three',
    '2' => 'two'
    };