#!/usr/bin/perl
use strict;
use warnings;

#`/bin/echo "SNMP 3PAR DISK STATS start executed on: `date +%D' at '%l:%M:%S`" >> /var/log/snmp-3par-disk-stats.log`

push my @vluns,`ssh -l gmon 3par-S400 statvv -ni | awk '{print $1 }'`;
foreach my $vlun (@vluns) {
 if ($vlun ne "Press") {
   print "$vlun \n";
 }
 else {
 last;
 }
}


push my @vluns2,`ssh -l gmon 3par-E200 statvv -ni | awk '{print $1 }'`;
foreach my $vlun2 (@vluns2) {
 if ($vlun2 ne "Press") {
   print "$vlun2 \n";
 }
 else {
 last;
 }
}

##</code><code>##

[gmon@cc126-200 ~]$ ./3par-disk-stats.pl 
Use of uninitialized value in concatenation (.) or string at ./3par-disk-stats.pl line 7.

##</code><code>##

Press

16:34:19
VVname
mgmain_data
mgnote01_redo1
mgnote01_redo2
mgtool02_data_110G
mgtool02_redo1_3G
mgtool02_redo2_3G
mgnote01_data_85G
rcat11_data
racprod_redo1a_tpvv
racprod_redo1b_tpvv

##</code><code>##

-------------------------------------------------------------------------------------------
                   total   t 5766 5777      601349 585394         8.4  8.6 104.3 101.3   67
Press the enter key to stop...