open( SANCLI, "datapath query essmap |" ) or die "unable to open pipe... $!";
$_ = <SANCLI>;
s/\s+P\s+/ /;
my @col_headings = split;

while(<SANCLI>) {
    my %fields;
    @fields{@col_headings} = split;
    ...
}