Select Code to Download

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

use Data::Dumper;
my %data;
...
    $data{ $key } = $value;
};
print Dumper \%data;