#!/usr/bin/perl
use strict;
use warnings;
use IO::Pipe;

my @systems = ('3par-S400','3par-E200');
my $system = undef;
my $output = undef;
my $command = undef;


foreach $system (@systems) { 

    $output = run_command($system);



    while (<$output>) {
        next if (m/^$/);
        last if (m/^Press.*/);
        #print $_ . "\n";
        my $parvalues{$parelement} = ($_ .=~/(.*?)\t+/g) {
        foreach my $parkeys (sort keys %parvalues){
        print $parkeys, "\t", $parvalues{$parkeys}, "\n";
          }
       }
        
 }

    close($output);

}


sub run_command {

my $system = shift;
my $protocol = 'ssh';
my $command = "statvv -ni";
my $space = " ";
#The following is bad but it works for now..
my $do_command = $protocol . $space . $system . $space . $command; 
my $cmd = new IO::Pipe;
$cmd->reader($do_command);
return $cmd;
   
    
}