#!/usr/bin/perl

use strict;

my @a_empdata;
my %h_empdata;
my $esl;
my $val;
my $line;
my $i;

open EMPFILE, "<esl.dat"
  or die "can't open file: $!";

@a_empdata = <EMPFILE>;

close EMPFILE
  or die "can't close file: $!";

print "emp\tsal\tloc\n";

$i = 0;

while ($a_empdata[$i])
{
   $line = $a_empdata[$i];
   chomp($line);
   $esl = (split '=', $line) [0];
   $val = (split '=', $line) [1];
   if ( $esl eq "emp" )
   {
      $h_empdata{'emp'} = $val;
      if ( $a_empdata[$i+1] =~ m/emp/ )
      {
         $h_empdata{'sal'} = " ";
         $h_empdata{'loc'} = " ";
         $i++;
      }
      elsif ( $a_empdata[$i+1] =~ m/loc/ )
      {
         $h_empdata{'sal'} = " ";
         $h_empdata{'loc'} = (split '=', $a_empdata[$i+1]) [1];
         chomp($h_empdata{'loc'});
         $i = $i + 2;
      }
      elsif ( $a_empdata[$i+1] =~ m/sal/ )
      {
         $h_empdata{'sal'} = (split '=', $a_empdata[$i+1]) [1];
         chomp($h_empdata{'sal'});
         if ( $a_empdata[$i+2] =~ m/loc/ )
         {
            $h_empdata{'loc'} = (split '=', $a_empdata[$i+2]) [1];
            chomp($h_empdata{'loc'});
            $i = $i + 3;
         }
         else
         {
            $h_empdata{'loc'} = " ";
            $i = $i + 2;
         }
      }
   }
   elsif ( $esl eq "sal" )
   {
      $h_empdata{'sal'} = $val;
      $h_empdata{'emp'} = " ";
      if ( $a_empdata[$i+1] =~ m/loc/ )
      {
         $h_empdata{'loc'} = (split '=', $a_empdata[$i+1]) [1];
         chomp($h_empdata{'loc'});
         $i = $i + 2;
      }
      else
      {
         $h_empdata{'loc'} = " ";
         $i++;
      }
   }
   elsif ( $esl eq "loc" )
   {
      $h_empdata{'loc'} = $val;
      $h_empdata{'emp'} = " ";
      $h_empdata{'sal'} = " ";
      $i++;
   }
   print "$h_empdata{'emp'}\t$h_empdata{'sal'}\t$h_empdata{'loc'}\n";
   undef %h_empdata;
}

./esl.pl
emp     sal     loc
1       2       abc
2       21
        22      xyz
5               abc