my $ganglia=`ganglia proc_run`;
my @results=split(/\n/, $ganglia);
foreach(@results)
{
	push @open, $_ if $_=~m/\s{1,}1\s{1,}$/;
	unshift @open, $_ if $_=~m/\s{1,}0\s{1,}$/;
}

##</code><code>##

foreach ( `ganglia proc_run` )
{
	push    @open, $_ if /\s1\s+$/;
	unshift @open, $_ if /\s0\s+$/;
}