use Data::Dumper;
use strict;
my %hash;
while (<DATA>) {
    chomp;
  next unless $_;
    my @bits = split /: |;/;
    my $key = shift @bits;
    $hash{$key} = \@bits;
}
print Dumper \%hash;

__DATA__
t-98: 12;3;56;24
t-56: 1;98
t-3 : 12;56

##</code><code>##

$VAR1 = {
          't-98' => [
                      '12',
                      '3',
                      '56',
                      '24'
                    ],
          't-3 ' => [
                      '12',
                      '56'
                    ],
          't-56' => [
                      '1',
                      '98'
                    ]
        };