open(FH,"-|", "symdev list -v") or die $!;
while (<FH>) {
  my $symm_id = my $others = undef; # or '';

  if ( m/Symmetrix ID/ ) 
  {  
     $symm_id = ( m/Symmetrix ID\s+:\s+(\d+)/ );
  }
  
  # etc
}