use Data::Dumper;

%hash =     (split /\:/,  (split /;/ $string));
print Dumper \%hash;

##</code><code>##

$VAR1 = {
          '3' => undef
        };