__DATA__

 Disk Path  P Location adapter LUN SN  Type Size LSS Vol  Rank  C/A   S   Connection  port RaidMode
-------       -----  -   -----------  ------   -----------  ------------   ----   ----    ---  ----- ----  -   ----------- ---- --------
vpath0  hdisk2  1n-08-01[FC] fscsi0 00013772 IBM 2105-F20 15.3GB  16  0   1000   01   Y   R1-B2-H4-ZA   2c RAID5


__END_DATA__

##</code><code>##

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;
}