Shell Programming and Scripting

import re
counter=1
keys={}
values={}
with open("a.txt") as file: 
 for line in file:
  line=line.replace("\n","")
  if re.match('=',line):
   counter+=1
   continue  
  items = line.split("=")
  keys[items[0]]=1
  values.setdefault(counter,{})[items[0]]=items[1]
for i in sorted(values,key=lambda x: int(x)):
 for j in sorted(keys,key=lambda x: int(re.sub('[a-zA-Z]*','',x))):
  print(values[i].get(j,""),end=" ")
 print("")

my %keys;
my $counter=1;
my %values;
while(<DATA>){
	chomp;
	if (/^=$/){
		$counter++;
		next;
	}
	my @arr=split("=",$_);
	$keys{$arr[0]}=1;
	$values{$counter}->{$arr[0]}=$arr[1];
}
my @sorted_keys = sort {$a=~/(\d+)/;my $aa=$1;$b=~/(\d+)/;my $bb=$1; $aa<=>$bb} keys %keys;
print join " ", @sorted_keys;
print"\n";
for my $key (sort keys %values){
	for my $k (@sorted_keys){
		print $values{$key}->{$k}," ";
	}
	print "\n";
}
__DATA__
line1=ABC
pine2=XYZ
gine3=123 
=
line1=TYU
pine2=UYT
=
line1=BCD
pine2=GHY
gine3=786
tine4=RTY