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,}$/;
}
[download]

That could be simplified to:

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