...
	if ($device =~ /^(Device1|Device2)$/){
            require "$device.pm";
            $device->import(); # import the device subroutines here
	}
    ...

# This assumes all devices have and export the same subroutine names
device_function_1();
device_function_2();