use strict;
use warnings;
use Data::Dumper;

my ($vpath,$hdisk,$lun,$lunsz);
my (%HoA,$HoA);

open( SANCLI, "datapath query essmap |" ) or die "unable to open pipe... $!";
while(<SANCLI>) {
    s/^\s+|\s+$//g;
    s/P{1,1}//g;
    next unless length $_;
    my @array=split;
    { local $" = "\t";
      my @fields=@array[0,1,4,7];
      print "@fields\n";
    }
    #push @{$HoA{$id}}, $name;
}