#!/usr/bin/env perl 
use strict;
use warnings;
use feature 'say';

my $infile = shift;
open my $in, '<', $infile or die "Cannot open $infile: $!";
while (<$in>) {
	chomp;
	s/=\s*$/"= " . shift/e;
	say;
}
close $in;