my ($out1, $err1, $exit2 = $ssh->cmd("df -k");
my @out1 = split /\n/, $out1;
...