my %devices = (
    'foo' => { 
        URL => '1.2.3.4', UID => 'bob', PWD => 'b0bzP@55w0rLD', 
        promptRex => qr/[\$%#>] $/, statusCheckCmd => 'hello' 
    },
    'bar' => { 
        URL => '4.3.2.1', UID => 'joe', PWD => '533KR175@uc3',
        promptRex => qr/[A-Z]:> /,  statusCheckCmd => 'world' 
    },
);

for my $dev (keys %devices) {
   my $DEV = new Net::Telnet(Timeout=>10, Prompt=>$devices{$dev}{promptRex});
   $DEV->open($devices{$dev}{URL});
   $DEV->login($devices{$dev}{UID}, $devices{$dev}{PWD});
   my @status = $DEV->cmd($devices{$dev}{statusCheckCmd});
}