#!/usr/bin/perl
use strict; use warnings;

my %data;

#open INPUT, '<', $InputFile" or die "Failed to open $InputFile: $!";

while (<DATA>) {
    chomp;
    
    next if ! /(\w+)\s*:\s*(\w+)/;
    $data{$1} = $2;
}

print "$_ => $data{$_}\n" for keys %data;

__DATA__
foo:FOO
bar:BAR

bogus data line - comment maybe?

baz:BAZ
qux:QUX