use Modern::Perl;
use Tie::File;

tie my @newProps, 'Tie::File', 'new_properties.txt' or die $!;
my %newProps = map { /([^=]+)/ => $_ } @newProps;
untie @newProps;

tie my @oldProps, 'Tie::File', 'old_properties.txt' or die $!;
map { /([^=]+)/; $newProps{$1} and $_ = $newProps{$1} } @oldProps;
untie @oldProps;