Programming

my @rooms = qw( blah blag blah ) ;

$ssh command

my @rooms = qw(`$ssh comand`);

my @rooms = qx($ssh comand);

# ARGV check
$roommatch = grep( $_ eq $ARGV[0], @rooms );
($roommatch > 0) and $allow = "1";


    my $cmd = " $ssh zmmailbox -z -m $ARGV[0] mfg Calendar account $ARGV[1] rwidax";
        if ($allow == 1) {
                system $cmd;
        }
        else {
                print  "Please enter a proper room name:\n\n";
                foreach my $room (@rooms){
                print "$room\n";
                }
        exit();
        }

        my $cmd2 = " $ssh zmmailbox -z -m $ARGV[1] cm --view  appointment -F# /$ARGV[0] $ARGV[0] /Calendar ";
        system $cmd2

print "@rooms";