sub in(@);

##</code><code>##

foreach my $item (in($WMI->ExecQuery('Select * from Win32_PhysicalMemory'))) {