open INPUT, "<", $InputFile;

my %data = map { chomp; split( /:/, $_, 2 ) } <INPUT>;

close INPUT;