my ($out, $err1, $exit2) = $ssh->cmd("df -k");

for my $line (split /\n/, $out) {
    print "$cnt: $line\n";
    $cnt++;
}

##</code><code>##

my $cnt = 1;
while ($out =~ /\G(.+)\n?|\G\n/g) {
    print "$cnt: $1\n";
    $cnt++;
}