You can try this way:

#!/usr/local/bin/perl


use strict;
use warnings;
use Data::Dumper;

my %rec = ();
my $field;
my $value;
my $key;
my @AoH = ();
while ( <DATA> ) {
    chomp;
    $field = $_;
    ($key, $value) = split /=/, $field;
    $rec{$key} = $value;
}
push @AoH, \%rec;


print Dumper (\@AoH);

__DATA__
Key1=Value1
Key2=Value2
Key3=Value3
[download]