Select Code to Download

#! perl
use strict;
...
my @matches = grep { $LPAR_config{$_}->{frame  } eq 'frame2' &&
                     $LPAR_config{$_}->{lpar_id} eq '1' } keys %LPAR_c
+onfig;
dd @matches;

 1:43 >perl 560_SoPW.pl
"lpar3"

 1:44 >