sub getSystemData
{
[..snip..]
rmap {print} $system_data;
return $system_data;
}