my $number = "2301";
my @output = `./retrive $number`;
chomp @output; # remove line endings

##</code><code>##

use Data::Dumper;
my %data;
for my $line (@output) {
    my ($key, $value) = split /:/, $line, 2;
    $data{ $key } = $value;
};
print Dumper \%data;