foreach $device (keys %devices) {

$pm->start and next;
.....
$pm->finish;
}